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1 001 MODULE receiver (IDENT = ‘V04-000') = 
§ BEGIN 
04 ! 
00 SRR AEAAAAAAAAAAAAREAAEAAEATEAAAEE AAT AAAAAAAAAAAAAAAEAAAAAEEEEAAEEEE 


's COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


't THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND 


Sse 
CONAW 


Oo 


FUN OODNAUES WN —OOONOUE WN" OODONOUS WIN —O0 


® 

® 

® 

® 

® 
COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
H ® 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

i CORPORATION. t 
® 

® 

* 

® 

® 

® 


'® DIGITAL ASSUMES NO RESPONS 
!® SOFTWARE ON EQUIPMENT WHIC 
is 
PITIIIITI LIT IITIT ITLL LILI itil iiitiiiiiiiiiiiitititiii iti it 


B ‘ FOR THE USE OR RELIABILITY OF ITS 


1B] 
H IS NOT SUPPLIED BY DIGITAL. 


!44¢ 


FACILITY: DECnet V2.0 event logger 
ABSTRACT: 


This module contains the routines which receive events from 
both the local node or other nodes and place the events into 
the appropriate sink (console, file or monitor process). 


ENVIRONMENT : 

VAX/VMS operating system. unprivileged user mode, 
AUTHOR: Tim Halvorsen, June 1980 
Modified by: 


v004 MKPO001 Rachy Perko 24-June-1984 
Increase size of OPCOM message buffer to prevent truncation 
of events logged to OPCOM. 


v003 TMHO003 Tim Halvorsen 20-Jul-1983 
Pass back our version number in connect accept to remote 
event transmitter to conform to the architecture, and allow 
PLUTOs to send us events (they didn't Like our lack of 
version number). 
Always send events to the OPCOM facility as well as 
sending them to the monitor process (if any); rather 
than doing one or the other. 
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; 28 28 . vO02  TMHO002 Tim Halvorsen 02-May-1983 : 
: 9 1! Fix bug which Left binne pernenent +7 accessed but in : 
; 60 60 1! the closed state; the Links weren't being deaccessed ; 
; 6 bes } if an error was encountered issuing a Link receive. ‘ 
: 6 does 1/ v001 TMHOO001 Tim Halvorsen 03-Jun-1982 ; 
; 0064 1! Convert to use new NETACP control Q10 interface. ‘ 
3; $635 0065 1 !-- : 
; # bos? | : 
; 68 0068 1! Include files : 
BOBBY : 
; 4 PY 1 LIBRARY *SYSSLIBRARY: STARLET; ! VAX/VMS common definitions ; 
; oF 0078 : REQUIRE ‘SYSSLIBRARY:UTILDEF'; ! Common VMS definitions : 
: 75 0550 1 LIBRARY ‘SHRLIBS:NET'; ! Network control Q10 definitions ‘ 
3 76 bS24 : ! (NETACP database symbols) ° 
; 4 0958 : LIBRARY ‘LIBS:EVCDEF'; ! Event data definitions ; 
; 680 0255 1 REQUIRE "LIBS:EVLDEF'; ! Event logger definitions : 
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Table of contents 


FORWARD ROUTINE 


ev lSreceive: NOVALUE, 
update_sinkdata: NOVALUE, 
delete_sink: NOVALUE, 
wait_for_interrupt: NOVALUE, 
net Interrupt: NOVALUE, 
open_event_link: NOVALUE, 
closé_event_link: | NOVALUE, 
shutdown: NOVALUE, 
wait _for_event: NOVALUE, 
event_received: NOVALUE, 
ev lS$queue_event: NOVALUE, 
output_events: NOVALUE, 
output _console: NOVALUE, 
write_Tine: NOVALUE, 
output_ file: NOVALUE, 
open. tile: NOVALUE, 
close file: NOVALUE, 
output_opcom: NOVALUE, 
output_monitor: NOVALUE, 
save_lines: NOVALUE, 
me gran NOVALUE, 
close_monitor: NOVALUE ; 


BUILTIN functions 


BUILTIN 
INSQUE, 
REMQUE; 
' 
: Define macro for message reporting 


CRO 
msg(ident) = 
BEGIN 
ZIF NOT ZDECLARED(ZNAME 
THEN EXTER 

ZNAME(‘evl$_', iden 
END2; 

: 

Literals 

LITERA 


= Sine eee = 26, 
max_queued_events = 10, 


Bliss-32 V4. 
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Receiver initialization 

Update our version of sink data 
Delete a sink 

Wait for network interrupt 
Network interrupt AST routine 
_— —— event logical Link 
Close event ogicat Link 

Shut down receiver gracefully 
Wait for an incoming event record 
Accept incoming event record 
Queue an event record to sinks 
Output all events for a given sink 
Output event to console sink 
Write Line to console sink device 
Output event to file sink 

Open file sink 

Close file sink 

Output event to OPCOM terminals 
Output event to process sink 
Append output Lines into buffer 
Open monitor process sink 

Close monitor process sink 


INSQUE instruction 
REMQUE instruction 


(Tevl$_‘,ident)) 
RNAL LITERAC SNAME('evL$_', ident); %FI 


' evi object number 


aximum events on sink queue before 


! incoming events are blocked and the 
! sink queue is emptied 
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3 mbx_maxmsg = 64; ! Maximum size of mailbox message : 
13 f } b 64 ! Maxi i f mailb ; 
: 141 703 1! ; 
; (16 724 1°! OWN storage : 
H 128 725 1! : 
3 138 ? 8 1 net_channel: WORD, H Logical Link channel number : 
3s 36 ? 1 mbx_ channel: WORD : Mailbox channel number > 
3 6148 730 1 mbx_ message: VECTOR Cm xmaxmsg,BYTE), ! Mailbox input buffer : 
: 149 731 «1 osb: BBLOCK ° : 1/0 status block for MBX : 
3 130 7 ¢ 1 ink header: VECTOR . ! Listhead for sink descriptors : 
; I £ ? ! ec_Reader: VECTOR (2); ! Listhead for incoming Links ‘ 
: 138 735 1 GLOBAL : 
; 138 f § : evl$b_rcvdone: BYTE INITIAL(true); ! True if receiver inactive : 
: 156 0738 1! ; 
3; 37 07 § 1 ! External storage : 
: 189 Oren 1 
: 160 2544 1 weir : 
3: 161 0745 1 evl$gl_logmask: BBLOCK, ! Logging bit mask $ 
: 166 0744 1 evl$gt_localnode; ! Local node name string : 
: ie once | 
; 165 Ope? 1 ! External routines : 
: 16? oreo 1 
; 168 0750 1 EXTERNAL ROUTINE ; 
: 169 0751 1 format_event: NOVALUE, ' Format an event record : 
: 170 O73g 1 ev $alTocdbk ' Allocate data storage block 3 
s 71 0753 (1 evl$deal locdbk, ' Deallocate data storage block F 
: 76 0754 1 evl$unjulian, ! Convert julian half-day time : 
.. ie 0755 1 evl$printlog, ' Print hex bytes to Log F 
3 «174 3728 1 evl$netshow ! Get information from NETACP 
3; 75 0757 1 wkq$add_work_item, ! Add work to work queue 
$ 176 or 38 1 LibSasn_wth_mbx: ADDRESSING MODE(GENERAL), ! Assign with assoc. mailbox 
. 7 ae? 1 LibSput_output: ADDRESSING _PMODE(GENERAL), ! Write to SYSSOUTPUT 
3; 178 760 1 b$get_vm: ADDRESSING MODE (GENERAL) ! Allocate storage 
; 179 0761 1 ib$free_vm: ADDRESSING_MODE (GENERALS ; ! Deallocate storage 
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; } 1 i } GLOBAL ROUTINE evl$receive: NOVALUE = 

a | 3 764 1 !<<- 

-™. 765 1! ° 
; 185 708 1! This routine is called to initialize the event 

s 1 oe 1! receiver and setup work to do asynchronously 

$ 1 7 8 1! ye the work queue. A reques for sink data is 

> 7 7. 2 ssued to NETACP and nothing is done until the 

ae 770 1! request is satisfied. When sink data is obtained 

: 190 771 +1! (or when there is any), then the sink List is 

: 13) 718 : updated and processing of events begins. 

: 138 as 1/ Inputs: 

; 4196 vrs 2 ® 

3 13? 76 ' } None 

; 199 778 1 | Outputs: 

; 198 779 «1! 

3 1? Ort : None 

: 201 782 1 

1 ARES gece 

> 206 785 LOCAL 

: 205 7 $ nfb: BBLOCK (5), ! Network function block for DECLOBJ 
; 206 a nfb_desc: VECTOR § " ' Descriptor of NFB 

; 207 8 : mbxmodes: VECTOR ‘ ! Enables mailbox message types 

3 oS 4 status; 

: 19 oink. heeder £0} = oink header: ! Initialize sink Listhead 

3 sink_header = sink_header; 

3 i 138 

g i 43 jocheoder £0) = foe.poaders ! Initialize incoming channel Listhead 
; ec_header = iec_header; 

: 215 7 = ws 

3 1g 138 status = LIBSASN_WTH_MBX(ZASCID ‘'_NET:*, ! Assign channel to NETACP 

: 21 798 0, ! mailbox MAXMSG,BUFQUO (ignored) 
3 8 799 net_channel i Channel to NETACP 

: 19 9800 mbx-channelS; | Channel to mailbox 

; 1 tit If NOT .status ! If error assigning channel, 

; a THEN EGIN 

: 3 H 5 bs a, segtnateeey , 0, .status); ! then signal the error 

; 6 807 END; 

: 8 509 nfb 9.0.8 0 = NFBSC_DECLOBJ; : Set function to ‘Declare object’ 
3 19 nfb £1.0,32,0) = object_number; ! Object number for event logger 
: 19 ntb_desc £03 = 5: ! Setup descriptor of NFB 

3 nfb_desc = nfb; 

3 14 

; P 0815 status = SQJOW(FUNC = IOS_ACPCONTROL, ! Issue read on mailbox 

; 5 p 16 CHAN = .net_channel 

: P 081 EFN = evl$c~synch_efn, 

; 2 P 0818 10SB = iosb, 
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SVMSMASTER: 


iESeoctoge 32387 yA 
If successfully submitted, 
then pick up final status 


If object already defined 
(EVL is already running somewhere) 


then exit process quietly 


aK evi SRCSRECEIVER.B3204%" (35 


Pl = nfb_desc); 


IF status 
THEN 

status = .iosb (0,0,16,0); 
IF .status EQL ss$_badparam 


THEN 
SEXIT(CODE = ss$_normal); 


IF NOT .status 
THEN 
SIGNAL (msg(netasn), 0, .status); 


shoneten C13 3 ots 


status = ere = I0$_SETMODE, 
CHAN = .net_channel 
EFN = evl$c_synch_ efn, 
10SB = iosb, 
Pi = sbuneaee}i 


then signal error 


Enable all mailbox messages 


Issue read on mailbox 


cen If successfully submitted, 
status = .iosb (0,0,16,0); 
IF NOT .status 


SIGNAL (msg(netasn), 0, .status); 


then pick up final status 


then signal error 


update_sinkdata(); ! Update sink information 
wait_for_interrupt(); ! Wait for connect request 
1 END; 
“T7TUs Ree IVER 
SIDENT \V04-000\ 
-PSECT SPLITS,NOWRT ,NOEXE,2 
00 00 00 3A 54 45 4E& 5F 00000 P.AAB: .ASCII \ NEIS3S :\<0><0><0> 3 
010€0005 Bane P.AAA: .LONG : 
00000000* 0000C “ADDRESS. P. AA : 


-PSECT SOWNS,NOEXE,2 
00000 NET CHANNEL : 
00002 mex _CHANIIEL 
00004 MBX MESSAGE : ‘ 
00044 10SB:  -BLKB 3 
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0004C SINK_HEADER: 


.BLK 8 
00054 IEC_HEADER: 
-BLK 


8 
.PSECT $GLOBAL$,NOEXE,2 
01 00000 EVLSB_RCVDONE:: 


EVLSGT_LOCALNODE 


LOtDBK 
SDEALLOCDBK, EVLSUNJULIAN 
LS$PRINTLOG, EVLS$NETSHOW 
GSADD_WORK. ITEM 

BSASN-WTH_ MBX 

BSPUT OUTPUT, LIBSGET vm 
BSFREE_VM, ev NETASN 
S$Q10W, SYS 


.PSECT S$CODE$,NOWRT,2 
.ENTRY EVLSRECEIVE, Save R2,R3,R4,R5,R6 
MOVAB é 


V R 

MOVAB LIBSSIGNAL, RS 

MOVL HEVLS_NETASN, RG 
10SB,R 


1 
EV 
FO 
EV 
EV 
~EXTRN WK 
EX LI 
LI 
LI 
SY 


see 

~ 

DD 
z 


EXIT 
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NK _HEADER 
NK" HEADER+4 
HEADER 

“HEADER+4 


£Ooone 

PrPPrr rum 

AWWA AWE UNO 
owo—-—co0 


0000" 


RBOSUMOEMANOOVS 
- 
coo 
<< 
be 
oN Be 


P.AAA 
000000066 99 CALLS a, LIBSASN_WTH_MBX 
BLBS STATUS, 1$ 
STATUS 
=(SP) 
PU R4 
CALLS #3, LIBSSIGNAL 


1$: MOVB 436. NFB 


& & & & 
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; Routine Size: 224 bytes, Routine Base: $CODE$ + 0000 


RECEIVER 1b-5e -1 VAX-11 Bliss-32 V4. 
V a tit 1 Hat 7 9}: 35 HH DISKSVMSMASTER: CEVL. OSRCIRECEIVER. 832; Paee 
F ¢ CALLS #12, $yssa10w ; : 
0 F MOVL RO, STA : ; 
; ¢ STATUS ; 0821 : 
MOVZWL 10SB, sft : : ; 
4 : 2$: cH rats, #2 : : 
1 DD PUSHL #1 + 0828 F 
000000006 09 Fe F CALLS #1 SYSSEXIT F _ : 
E 3$: LBS STATUS, 4$ : 083 : 
DD PUSHL STATUS : 083 ; 
fF BD 00096 post =oRa 
65 03 FB § 3p CALLS a, LIBSSIGNAL ; : 
6E D4 OOOA2 4$: CLRL  MBXMODES : 0834 : 
04 AE Qi ce OAG MNEGL #1, MBXMODES+4 + 0835 ; 
E 7C OOO0A8 CLRQ. = (§P) + 0841 ; 
7E 7C QOOAA CLRQ. = =( SP) : ; 
7E ps QOAC CLRL = = (SP) : : 
14 AE SF OOOAE PUSHAB MBXMODES : ; 
7E 7C 00081 CLRQ. ss =( SP) : ; 
53 DD 0008 HL OR : : 
23 DD 0008 PUSHL #35 : : 
7E Bc AS 3 008 MOVZWL NET_CHANNEL, -(SP) : ; 
1 DD 00088 PUSHL #1 : : 
$6 C FB 000BD CALLS #12, SYS$QIOW : F 
2 0 00 00C MOVL RO, STATUS : ; 
06 3¢ f 00¢ BLBC TA $ > 0843 : 
52 63 3¢ 99¢ MOVZWL 10SB, STATUS > 0845 : 
09 2 E8 000C BLBS STATUS, + 0847 ; 
52 DD OOOCC 5S: PUSHL STAT + 0849 : 
7E 04 OOO0CE CLRL.  =(SP) : : 
54 DD 06000 PUSHL  R4 : F 
65 03 FB 000D CALLS #3, LIBSSIGNAL : : 
0000v CF 00 FB 000D5 6$: CALLS #0. LOBATE SINKDATA : 0851 ; 
0000v CF 00 FB OOODA CALLS #0, WAIT_FOR_INTERRUPT : 0853 ; 
04 OO0DF RET > 0855 : 
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ROUTINE update_sinkdata: NOVALUE = 


This routine is called to request an updated description 
of the sink types from NETACE. . 4 


The format of the sink information in NETACP is: 
4 Sink AS +4 tcqgeole file or monitor process) 


&) ) gyare AF i Ry (counted string) 
Inputs: 
None 
Outputs: 


sink header = Address of sink Listhead 


evl$b_rcvdone = True if List empty (receiver inactive), else false 


BEGIN 
LOCAL 
status, 
buffer: BOL OCK $361. } Buf fer for sink information 
bufdesc: VECTOR bgscr ipter of above buffer 
position VECTOR nt6sc _ctx_size, Byte uffer for current position 
ink: F OCK; Address of current sink entry 


Start at first sink block 
Until end of Linked List, 


sink = .sink_ header; 
WHILE .sink NEQ sink_header 


Mark for possible deletion 


BEG 
sink" Csink$v “fsserst = true; 
and Link to next one 


$ ink = .sink Csink$l_Link); 


bufdesc fo} = 256; Setup descriptor 


bufdesc = buffer; 
position <0,16> = 0; 


WHILE evl$netshow( 
nibec cwitdeas 


Start at first ESI record 


' Event sink information 


1 

n rbée- wildcard,0, ! Search all records 

tion, ' Get next record; update position 

i # fields for each Fem: fields are: 

ee nfb$c_esi_snk, ! Sink t ype “(Pogue 

nfb$c_esi_sta ' Sink s tote songuerd) 
ntb$e~ “esi-inas, i Sink name ng) 
bufdesc) ' Return Ei: i Dire 


<z 
om 
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1 BEGIN 
¢ 13 a ae Logmask Celg$v_dbupdat] ! If we are logging database updates, 
1 EGIN 
13 Sf EMAL fasgt logdbur). 1 » OD; ! then signal update occurred 
v) 
4 $19 chse buffer (0,0,32,0] FROM sink$c_console TO sink$c_monitor 
1 921 ET 
¢ 9 § sink cagonsgled: UPLIT BYTE(ZASCIC ‘console’ ); 
9 UPLIT BYTE(ZASCIC ‘file'); 
44 924 sinks Sc amgnitor]: UPLIT MAST ASE "monitor process"); 
rf , 5 soul UPLIT BYTE(ZASCIC ‘unknown'); 
§ \) ; ‘tier 8,0,16,0) butter £10,0 9.03 
8 i 8 CASE buffer £4,0,52,0] FROM sink$c_on TO sink$c_hold 
50 930 ET 
51 931 sink$c_on]: UPLIT BYTE(ZASCIC ‘ON'); 
3¢ 093¢ sink$c oft: UPLIT BYTE(ZASCIC ‘OFF'S; 
5 9 sinkSc hold]: UPLIT BYTE(ZASCIC ‘HOLD'); 
54 934 UPLIT BYTE<ZASCIC "UNKNOWN'); 
56 $34 END re 
5 9 ‘ 
58 038 sink = .sink_header; ! Start at first entry in List 
59 9 
WHILE .sink NEQ sink_header ! Until end of List 


ts 


BEGIN 
A Csink$b_type] EQL .buffer (0,0,32,0] ! If sink type matches 


23 
NOUS WI OOo 


94 

8 BEGIN 
LOCAL previous_state; 

4 previous_state = a$t bs Es inkse v2: ! Save previous state 
sink Es inksb_ state er [4 03; Store new state 
sink Csink$b-n melon) = mebut ter 63: ' Store new name 
CHSMOVE(.sink Csink$b -naaelend, eit £1050.0,0), sink Csink$St _name)); 
sink Csink$yv error] = fal “ot operations ¢ on sink again 
F .sink Csink$b_state] NEO’ sink$e 39 f sink being turned on, 
OR .previous_state EQL sink$¢_o : if sink in the process 


: “of "setia deleted, 


EN 
sink Csink$v_delete] = false; ! Mark this sink be retained 
EXITLOOP false; 


END; 
hoy = ‘sink Csink$l_Link]; ! Skip to next in chain 
! If not toung in list, 
oO a buffer €4,0,32,0] NEQ sink$c_off ! and not in ‘off’ state, 
BEGIN ! Then add the sink 
LOCAL 


PEEP PUES SE ROM EB BWW BEER ERE EERE EEE PEPE PW 


Be Se Se Se Se Se Se Se Se Se Se Se SF Ss Se Se Se Se Se Ge Se Gs Se SF Ge FF SF Se Se Ge Se FSF Ss Se Se Se Se SF Se Se Se SF Se Se Se Se S45 Se Se ee Se Sees tees 


len 
l ngth” : tMinkSc_t ngth Length, of new sink entr 
signal_if aaa Get _VACLength, sink)); Allocate new entry 
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aa 
a 


; 390 970 4 CHSFILL(O poe ength,.sink); ! Zero the entr 

; 391 971 4 sink Csink$b css 2b pp ats a tO 0,32,0); i Store sink type 

; % 972 4 sink sinkgors Ote) © -buf fer t 6. 2,03; Store new state 

: 39 973 4 sink Csink$b Asie seten$s (8:0,4 do,0 Sto name 

: 394 974 & CHSMOVE(.sink b.ngnelen buffer 0 0.03, Sone Psink t_name]); 
: 395 75 4 sink s{nk$t_e =" s| ne L_evtf : “Init event queue listhead 
3 4] 6 4 sink ey 2 tcevepl3 = sink aft wevtfld; 

; 39 977 & INSQUE(.sink, .sink_header ' Insert into queue 

: a8 44 4 evi Sb. ick a = false; i Mark receiver active 

: 400 980 

: rt i 1 IF _.sink Csink$b_state) EQL sink$c_on ! If sink just turned on, 

3 408 i § ap eee _work, item Coutput_events, .sink); ! then flush any ‘‘held’’ events 
: 405 09 5 : 

; 406 9 $ ! 

s rts 4 ! If "y sinks —_ turned off, we flush ~ events queued 

; 4 988 ! for that sink and then delete the sink. These two functions 

; 409 0989 ! are queued on the work queue to ensure that any asynchronous 

: 219 344 activity on that sink completes before the delete is done. 

5 41 

: 418 0398 sink = .sink_header; ! Start at first sink again 

; 232 0995 WHILE .sink NEQ sink_header ! For each sink block 

; ri $399 BEGIN 

; 418 0998 IF .sink Csink$v_delete] ! If sink was turned off or omitted, 

; 419 0999 THEN 

; 420 1000 4 BEGIN 

3; $21 1001 4 sink Csink$b_state] = sink$c_off; ' Set state off if sink omitted 
:; 4 ¢ 1006 & wkq$add_work_item(output_ vets. -sink); ' then flush the sink events 

j : ; 18 4 Figsees. work_item(delete_sink,.sink) ! and delete the sink 

: 425 1908 : sink = .sink Csink$l_link]; } ote to next in list 

3; 4 $ 1006 § END; 

3: 6 100 

; 428 1008 1 END; 


-PSECT SPLITS,NOWRT ,NOEXE .2 


07020041 97010011 07010010 010 P.AAC: .LONG 117506064, 117506065, 117571649 3 

65 6C 6F 6— 6F 63 07 1C P.AAD: <ASCII </>\console\ ; 

65 6C 69 66 04 4 P.AAE: .ASCII 3 

73 65 63 6F 72 70 20 72 6F 74 69 6E 6F 6D OF P.AAF: .ASCII tb hesniter process\ F 
6— 77 6F 6E€ 68 6E 75 ; P.AAG: .ASCII <7>\unknown\ F 

ri 4F 4 1 P.AAH: .ASCII <2>\0N\ ; 

46 46 4F 44 PAA eASCII <5>\0FF\ 3 

44 4C 4F $8 4 48 P.AAJ eASCII <4>\HOLD\ 3 

4E 57 4F 4E 48 GE 5 7 4D P.AAK eASCII <7>\UNKNOWN\ 3 


~-EXTRN EVLS$_LOGDBUR, EVLS$_DBCRCV 
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RECEIVER on3¢ -1984 VAX-11 Bliss-32 V4.0-7 12 
vOG 1f-$e0c1 984 93: 38: 3 DISKSVMSMASTER: cei sre RECEIVER. 832 i9 = (4) 
-PSECT SCODES,NOWRT,2 
OFFC 00000 seltahieieaas 


WORD R2, R3, R4,R5,R6,R7,RB,RI,R10,R11 : 085 
B G i E : MOVAB eee AD. ORK ig TEM, R11 : —_ 
A 000000006 60 9€ MOVAB LIBS$S 4? ; 
9 CF 9E MOVAB SINK 1, : 
; ' ¢F 9E 0001 MOVAB P,AAC ; 
FEB4 ce E 0001 MOVAB -332($P), SP : 
Dp 1D PUSHL  SINK_HEAD + 0889 
50 p 1F 1$ OVL SINK> R : 0891 
21 : MOVAB SINK HEADER, R1 : 
’ 9 $3 00058 Se 
14 AO if 88 O002A BISB2 #1, 20(RO) + 0894 
6E 60 D0 000 F MOVL (RO), SINK : 0895 
gC 11 0 BRB Is : 0891 
48 AE 0100 «SF 3¢ ; 2$ MOVZWL #256, BUFDESC + 0898 
4C AE 30 AE 9€ 6 MOVAB BUFFER, BUFDESC+4 : 0899 
08 AE B4 0003E CLRW = POSITION + 0901 
48 AE OF 04] 3$ PUSHAB BUFDESC + 0903 
58 DD 00044 PUSHL R + 0908 
03 DD 046 PUSHL @# + 0903 
146 AE 9F 0004 PUSHAB POSITION : 
7E oN 7D 90048 mMOVa = #1, = (SP) ; 
7 oD OO4E PUSHL F 
00006 CF 07 FB 005 CALLS #7, EVLS$NETSHOW : 
03 0 ; 0055 BLBS RO. 4$ ; 
011A 31 00058 BRW 2 ; 
64 00006 CF £9 0005B 4$ BLBC = EVLSGL_LOGMASK, 15S > 0914 
7E or D 0006 MOV #1, -(SP : 0917 
000000006 8F DD 0006 PUSHL 4 §LS$_LOGDBUR : 
6A 03 FB 00069 CALLS LT6$S1GNAL : 
02 00 54 AE OCF 006¢ CASEL BUFF FER+4, #0, #2 + 0928 
0018 0012 000¢ 0071 5$: «WORD $$-5$.- ; 
8$-5$° : 
50 3D a8 9E 00077 MOVAB P.AAK, RO + 0934 
10 11 0007B BRB 9$ : 
50 31 AS 9E 9070 6$ MOVAB P.AAH, RO : 0931 
OA 11 00081 BRB 9$ ; 
50 34 AB % 0 3 7$ MOVAB P.AAI, RO + 0932 
04 11 000 BRB 9$ ; 
50 38 As 9E 9 8s MOV P.AAJ, RO + 0933 
50 DD $ PUSHL ; 
5E AE 3 F PUSHAB BUFFER+10 : 0927 
7E 6 AE 3C 32 MOVZWL BUFFER+8, -(SP) : 
03 01 C AE CE CASEL BUFFER, #1, #2 : 0919 
001 0012 000¢ 098 10$: WORD 15-198" : 
13$-10$" : 
50 29 «OA 95 O0A1 MOVAB P.AAG, RO + 0925 
10 1 3 BRB 14$ : 
50 oc A 1 A7 11$: MOVAB. PP. AAD, RO > 0922 
OA 1 RB 14$ : 
50 16 AB 9 AD 12$:  MOVAB P.AAE, RO > 0923 
04 1 RB 14$ ; 


9 
E 


5A 
14 


14 


04 


000000006 


0 FNMAMOOMMATODOOMOe™ Oc 
COOCOCCOOOCOCOOOOOOOOOOoOoO 
wRWwRMMMMMOOOCVVWOOOOOowWwI@w 
IDBNWS OL ™*DWONMO9I FNS DOW -—— 


+ eee pert ye 4 PP PMVOMMGAAASOMWOuP 


Foor OMMUCO, 


im MmMoom —rvwormmn 


AISNE & & & MMMNIN 2 oO 


RNOMMOLMMMNOPrPOooo MOLDIMO Il $0 PNV—"NW$§ F WFP OOPWIW—--MOoowcVvc»m 


SQOOoQGQQOQOoqooooooooooooooooooooooooooooooooooooooooooooooooo 


OWI —" DIT OOOONWOOOD WIOTIMI NOOO —~O—$ 9 “" DOW O0O00mM 9 OVO "OCT O 


PAM 


SOOO OOOOOOOSOOOSOSSSSSSSSSOSOOOSOCoooccoooooooooooooooooooooo 


SS €$ 


4 VAX=11 BLiss-32_V4.0-7 
inp a et ES i 
PAAAF, RO 


x 

‘ VL$ DBCRCY 
LIB$SIGNA 

ste _HEADER, SINK 

NK’ HEADER, RO 

NKaO 

#8, 8(R6), BUFFER 

REVIOUS_STATE 

R6) 
6(R6) 


RO 
ER+10, 47(R6) 
6) 


or 


», SINK 


VIN D 2 2 DNA NOOK CS lel | 


—AnBz—ANVBW 0 OB OW O— 2 WHY YB 


GTH 

» LIBSGET_VM 

ros 208. 

» LIBSSIGNAL 

NK 
a 


BOON DVTBW 


Ss = pom 
aa 2a 


SP), #0, #302, (R6) 


R, 8(R6) 
+4, 9(R6) 


NTS 
UROSABD _WORK_ITEM 
K_HEADER, SINK 
K-HEADER, RO 


‘Some 


<z 


aonm 
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RECEIVER 16-Sep 7 X-11 Bliss-32 V 14 
V aah 1 Sep- 1382 9}: 35 :3/ bts Ar SvMen TER: choc’ she RECEIVER. B32. 7% 64) 
: at na : 
1 146 A é 1 BLBC g (RQ) oss + 0998 
09 OA Q] 0 001 MOVE #1, 9(R2 + 1001 
2 po 0188 PUSHL R2 + 1002 
0000v CF 9F 001 PUSHAB OUTPUT EVENTS ; 
68 G2 FB 191 CALLS 4 , WKOSADD_WORK_ITEM cee 
0000v cr BF 196 PUSHAB et Sits ; 
6B F 19A CALLS F = _WORK_ITEM r 
e 62 8 Boigp ass: Rot’ Rts." : 1005 
bt i 26$ RET : 9808 


; Routine Size: 419 bytes, Routine Base: $CODE$S + 00E0 


Fy of ot ot at at at at nt 
wn 

SDOSSSDOSCSOSOOOOSOOOOOOOOOO0O 

PWN OC ODNAUNEWN OC OONAUEWN OOD NOULS WIN OD 


iw 


bed st od SS a od dt so ow 8 = 
Ww 


Soooooooocooo 


r= 


Sets Ge Fe Ge Ge Se Ge Fe Sse G6 Se BOS Ge Se Se SESH Se Se Se Se Se Sse Sse Se Se Se Sees Se Sete sses 


ROUTINE delete_sink (sink): 


Delete a given sink 


Inputs: 
sink = Address of sink block 
Outputs: 
as None 
BEGIN 
MAP 
sink: REF BBLOCK; 
CAL 
length; 


If «Sink Csink$l_closertn] NEQ 0 
(.sink Csink$l_closertn]) (.sink); 


REMQUE(.sink, length); 


= sink$c_length; 
at FREE _VM( Length, sink); 


(,iec_header (OJ EQL iec_header); 


4 0000" 

5 6 

2 
22. =«B2 
6E 

6E "6 

4 

4 


000000006 98 


eo 


MHSPNMOE BO—MOMIO LT 


oOonoowonse-9cC9Oo"- 
SMD MO Wo 


VIOOPF FPOCou1or rom 


at VAX-11 Ol iss. -32 v4. 
754 DISKSVMSMAST 


Address of sink block 


! If there is a close routine, 
Close the sink 
Remove from Linked List 


! Deallocate sink block 
evl$b aes = (.sink header (CO) EQL sink_header) ! Flag if we are active 


001C 00000 DELETE_SINK: 
WORD 


Save R2,R3,R4 
SINK_HEADER, R4 
a4, spe 

ix R2 

4(R2) 

i$ 

i 

#1, @34(R2) 

(RE) LENGTH 
#302, LENGTH 
SINK 

LENGTH 

#2, LIBSFREE_VM 
SiN K_HEADER, “RO 


ees 
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ER: cEvi’ sae RECEIVER.B32;1 (5) 


RECEIVER Ib-50 $ep-1984 7 VAX-11 Bliss-32 V4.0 6 
VO. c O08 =3e0n 138% 9}: 35 ef DISKSVMSMASTER: CE Loi she SRECEIvER. B32: 79 ei 
50 4 b CMPL SINK K_HEADER, RO : 
mes i | 
51 As aE A 2%: MOVAB IEC HEADER, R1 + 1042 
51 08 ASG OD if CMPL EC. HEADER, R1 : 
1 44 BNEG : 
53 DS OO0c8 38: RCO ne. 
0000' CF 50 BB 0048 BI CBs R3, RO, EVL$B_RCVDONE ; 
4 00051 RET + 1044 


; Routine Size: 82 bytes, Routine Base: S$CODES + 0283 


15 . 
RECEIVER 18-56 1984 01:37:57 VAX=-11 Bliss-32 V4.0-74 Pa 17 
vO 1 7300-1382 93:38:84 DLSKSVMSMASTERSCEVi SRCIRECEIVER.B32¢97" (6) 
ROUTINE wait_for_interrupt: NOVALUE = 


1 
Issue an asynchronous Q10 on the associated mailbox 


for the network channel waiting for connect requests 
for the receiver. 

Inputs: 
mbx_channel = Channel number for mailbox 

Outputs: 


None 


PAPAIN EE & EE 


OOOOoooo 


BEGIN 


LOCAL 
status; 


status = SQIO(FUNC = I0$_READVBLK, ! Issue read on mailbox 
CHAN = .mbx_channel, 
EFN = evl$c_asynch_efn, 
I0SB = iosb, 
ASTADR = net_interrupt, 
Pl = mbx_message, 
P2 = mbx_maxmsg); 


IF NOT .status 
SIGNAL (msg(readevt), 0, .status); ! then signal error 


MEAN "OO OONAUE WW OVDONOu 


SSSSSSSSS 


POPPOPOPOPOPONIPONUPUPIPIPININID 2 2 2 


S 


Wwrn—o 0 


x = 
~o 
—_ 
vvVUUU 
i ee ed ed ed ed ed ed dd 


SCooooooocoeo 


> i 


NNN 


> 485 


WONAUS 
m 

2 

J 

ee 


-EXTRN SYS$QI0, EVLS$_READEVT 
0000 00000 WAIT_FOR_INTERRUPT: 
=WORD 


Save nothing : 1045 
7E 7C 0000 CLRQ = = (SP) : 1073 
7E 7¢ CLRQ = =(SP) ; 
7E 40 8F QA MOVZBL #64, -(SP) F 
0000' cr F A PUSHAB max MESSAGE ; 
4 CF F 1 PUSHAB NET_INTERRUPT 3 
000' cr 9F 0001 PUSHAB 10S6 : 
1 od 00018 PUSHL #4 : 
7E 0000' CF 3C QODIA MOVZWL MBX_CHANNEL, -(SP) : 
2 DD O001F PUSHL : 
000000006 00 F 1 CALLS #12, SYS$QI10 : 
11 E 8 BLBS STATUS, 1$ ; 1075 
DD B PUSHL STATUS : 107 
E D4 n CLRL. = ; 
000000006 8F DD f PUSHL #EVL$_READEVT ; 


5 
VoscOuo” 1$-}e0-1984 Poi3ei a, | Phd wBAASPeRsceuC skCSRecerver.es2n3%" (28 
000000006 00 03 FB 90085 ALLS #3, LIBSSIGNAL yes 


; Routine Size: 61 bytes, Routine Base: S$CODE$ + 0205 


15 
VoscO00" 18-Sep-1984 93:30i8, « UESKSUMGRASTERSCEUL SRCSRECEIVER.B3204°" (> 


; 83 } 9 } ROUTINE net_interrupt: NOVALUE = > 
: 505 1 ] !-=- ; 
; 88 1 1! : 
; 30 1 1! This AST routine is called when the outstanding Q10 : 
; 308 1085 1! on the associated mailbox completes. If the interrupt ‘ 
; 509 1 1} indicates a connect is pending, then the acceptance : 
; 19 } 5 : ; routine is added to the work queue. ; 
: 51 1 1 | Inputs : 
: 218 1996 1 i 
: \ 1 3 } } mbx_message = Mailbox message 3 
; 16 1098 1 | outputs: ; 
3 >I 1094 1! ; 
; 18 1095 1! None : 
: 320 1097 1 
; 521 1098 2 BEGIN 3 
; $ 1399 SSLECTONED -mbx_message [0] ! Select based on message type : 
Rhee) ey ; 
; 5 ; 1108 Cmsg$_netshut): ! Network shutting down : 
: 355 1108 BEGIN : 
; 530 110 vresedd work, {ten shutdown) ; ! Shut down receiver gracefully ‘ 
; 2 1 1108 RETURN; ! Do not re-issue mailbox read 2 
: 33g 116 " : 
; : wy Cmsg$_connect): ! Incoming connect request : 
i 1118 BEGIN 3 
:¢ 1118 eretr ten 
; 539 1338 : ‘REF BBLOCK; ! Incoming event channel block : 
3 2¢9 111 len = iec$c Length; . 
: 541 1118 LIBSGET_VM(Ten,iec); ! Allocate incoming channel block : 
; ri} 111 CHSFILLTD, teese tongth -tec); ! Zero the block : 
3; «54 1120 ec g¢ w_size] = ec$e ength; ' Set Length of block : 
3 544 1121 ptr = 5 + .mbx paqeage a); ! Get index of start of ascic data : 
; 545 11 § jeg Ciec$b_ncbTen] = ,mbx_message C.ptrj; ! Sef Length of NCB ‘ 
; 54 11 CHSCOPY ( .mBx message t.ptr), mbx nessage C.ptr+1), ; 
3; «54 1124 -.1ec cmaxneblen, Tec ecSt_ncb)); : 
; 548 1125 INSQUE(.iec, .iec_header ); ! Insert into List : 
: 549 11 6 wkaq$add_work_itemtopen_event_link,.iec); ! Queue the connect accept : 
: 31 1% j evlS0_rcvdons = false; ! Mark receiver active : 
; 11 : : 
3 38 i Casg$_evtrcvchg): ! If event receiver database change : 
; 555 i § wkqSadd_work_item(update_sinkdata); ! then update sink information : 
oe ha | 
: 559 11 wait_for_interrupt(); ! Issue another read on mailbox : 


<zD 
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: 38 1138 ¥ eno; 
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«WORD Save R2,R3,R4,R5,R6,R7,RB : 1080 
8 90006 CF 9E 9002 MOVAB WKQSADD WORK_ITEM, RB : 
000° CF 3 MOV X_MESSAGE, -R7 : 
5 3 oh f AOVIGL MBK_AESSAGE, RO 1100 
B 0 1 0001 CMPB RO 489 : + 1104 
08 12 0001 BNEQ 1$ : 
0000v cr 9F 0001 PUSHAB SHUTDOWN + 1107 
68 1 FB 0001B CALLS #1, WKQSADD_WORK_ITEM : 
94 1E RET > 1106 
32 50 71 0 4 1$ CPB RO, #50 + 1111 
04 AE O14F i 3¢ 00 4 MOVZWL #335, LEN + 1117 
E DD OO02A PUSHL SP > 1118 
08 AE 9F 0002C PUSHAB LEN F 
000000006 00 02 FB 00 F CALLS #2, LIBSGET_VM : 
56 6 pO 0 MOVL eC, R6 + 1119 
O14F BF 00 6E 00 C 0039 MOVCS #0, (SP), #0, #335, (R6) ; 
08 Ab O14F HF BO 00041 MOVW #335, 8(R6) + 1120 
50 04 AZ 9A 00047 MOVZBL MBX_MESSAGE+4, PTR > 1121 
50 05 £8 0048 ADDL2 . PTR 3 
16 Ab 6740 90 OO4E VB MBX _MESSAGE[PTRI, 20(R6) : 11 3 
51 6740 9A 0005 MOVZBL MBX~MESSAGECPTRI, R1 : 11 
0040 8F 00 01 A740 os 31 2c 0057 MOVCS R1,~MBX_MESSAGE+{CPTR], #0, #64, 21(R6) > 1124 
54 87 66 OE itt INSQUE (R6), @I1EC_HEADER+4 : 1125 
6E DD 0066 PUSHL C > 1126 
0000v CF 9F 000 PUSHAB OPEN_EVENT_LINK : 
68 02 FB 0006C CALLS #2, QKasaodb WORK_ITEM : 
0000' CF 94 00 of CLRB VL$B_RCVDORE : 1127 
of 11 00 BRB : 1100 
3F 30 9 g 2$: CPB RO, #63 : 1130 
FD50 CF OF 7A PUSHAB UPDATE_SINKDATA : 1132 
68 8 FB 8 i CALLS #1, WKOSADD WORK_ITEM $ 
FF3D CF 0 FB 00081 3$ CALLS #0. WAIT_FOR_INTERRUPT > 1136 
04 00086 RET > 1138 


3; Routine Size: 135 bytes, Routine Base: S$CODE$S + 0312 
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1 300-138 9b:30:82 DI SKSVMSMASTERSCEVL SRCIRECEIVER.B3209%" (b) 
ROUTINE open_event_link (iec): NOVALUE = 


' 
Open the logical Link for incoming event records. 


i 
i 
; Inputs: 
| iec = Address of incoming event channel block 
| Outputs: 
routine = True if Link established, false if not 
BEGIN 
MAP 
jec: REF BBLOCK; ! Address of event channel block 
LOCAL 
status, 
ptr, 
ncb_desc: VECTOR (2); ! Descriptor of NCB 
t 
: Setup NCB for connect accept 
ncb_desc 


0) = .iec Ciec$b_ncblen); ' Get Length of requestor ncb 
ncb_desc ab = iec C eckt heeds : H : 
1 


Get copy of NCB up to slash to enable its use in error reporting 


!' and address of ncb 


ptr = CHSFIND_CH(.iec Ciec$b_ncblen], iec Ciec$t_ncb], '/'); 
IF NOT CHSFAIL(.ptr) ! If ending slash found, 
iec Ciec$b_ncblen) = .ptr - iec Ciec$t_ncb]; ! then truncate rest of junk 
J 
} Accept the connect request always since we try to support ANY version 
: of remote event transmitter. Pass back our version number in the 
: connect accept’ optional data. 
CHSMOVE(4, UPLIT BYTE(3, 4,0,0), .ptr+3); ! Pass our version # in optional data 


status = SASSIGN(DEVNAM = ZASCID ‘"_NET:', ! Get channel for incoming Link 
CHAN = iec Ciec$w_chan]); 


if a -Status ! If error assigning channel, 


BEGIN 
SIGNAL (msg(netasn), 0, .status); ! then signal the error 


1bSeo- 1984 3: 38: 3 DT eKSVMSHAST ER-CEVL SRCSRECEIVER. B32; eee 5 


1 close event_link(.iec); ! and deallocate the storage 

: RETURRA; 

1 e 
P status = mcmet 2 ™ = 10$ $ ACESS Accept the logical Link 
P = .iec ec bu shan, 
P ERN. = — rH ci fin 
Pp I SB = ig w-iosb), j Address of 1/0 status block 

= ncb_desc) Address of network control block 
: zotetus ! If successfully submitted, 
status = .iec Ciec$w_iosb); ! then pick up Q10 final status 


an -status If error starting up Link 


BEGIN 
Sees mata ieee fy -Status); then signal the error 
ec 


5 5S SCE 
cc ee a ee ee Be ee ee ee ee ee ed ed ae aed ed 


: co ese.e event_Link( ! and deallocate the storage 

0 : : 

: ] 

§ Log the incoming connect accept 

: ! 

§ la logmask Celg$v_rcvccf] ! If logging receiver incoming Links, 

8 9 

9 ncb_ desc (0 7: -iec Ciec$b_ncblen); ! Setup descri for, of NCB = optional 
630 SIGRAL( msg(logopnr), 3, .ncb_desc toi, .ncb_desc cf; , 
65 
o38 aS ee ! Wait for an incoming event record 
655 END; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


00 00 04 03 00055 P.AAL: BYTE 3, 4, 0, 0 ; 
00 00 00 3A 54 45 aE of G03 Pn BeAAN: «ASCII 17t6Li3s :\<0><0><0> 
00060000" 00068 ~ “ADDRESS PAN” : 


-EXTRN SYSSASSIGN, EVLS$_LOGOPNR 
~PSECT S$CODES,NOWRT,2 
003C 00000 OPEN_EVENT LINK: 


geome ie EA 2 
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: o38 } ¢ } ROUTINE close_event_link (iec): NOVALUE = 

: 6 1 1 le<- 

; £33 1235 1! 

; red ' § : : Close the logical Link for incoming event records. 

; ces \ } 1 } Inputs: 

3 665 40 iec = Address of incoming event channel block 

; $6 is | Outputs: 

; og 1244 1 None 

ee eo 

; 67 1247 2 BEGIN 

fe 

3 675 1 30 iec: REF BBLOCK; ! Address of incoming event channel 
: 67 1258 LOCAL 

; 678 125 Length, 

: th 1 2¢ status; 

; 681 i 2$ IF .iec Ciec$w_chan] NEQ 0 ! If channel was assigned, 

3 ore 125 THEN 

; 68 1258 BEGIN 

; ose : 2 status = SDASSGN(CHAN = .jec Ciec$w_chan]); ! Deassign network channel 
3 ose \ e IF NOT .status ! If error detected, 

: 688 1 88 SIGNAL (msg(netdas), 0, .status); ! then signal error 

2 Bees & phen 

; 691 1266 2 REMQUE(.iec, status); ! Remove from Linked List 

; O98 1267 Lonash = .iec Ciec$w_size); ! Get size of block 

: oe; ; 2 LIBSFREE_VM( length, iec); ! Deallocate storage 

; 695 1270 evl$b_rcvdone = (.sink_header [0] EQL sink_header) ! Flag if we are active 
3 696 1271 AND (.iec_header (03 EQL iec_header); 

; 69 1 i 

3; 698 127 END; 


~EXTRN SYSSDASSGN, EVL$_NETDAS 
001C 00000 CLOSE EVENT LINK: 


-WORD Save R2,R3,R4 : 1232 
54 0000' GF 9 : HOVAB SINK_HEADER, R4 : 
5 6 AC DO 000A ROVE. Jet, Re ; 1256 
RK A TSTW 15tke) : 
2 BEQL j 3 
7 OA Ad 3¢ 0001 MOVZWL 10(R2), -(SP) > 1259 
000000006 Q Q Fe 1 CALLS #1, SYSSDASSGN ; 
0 »D 1€ MOVL RO; STATUS : 


ses 


; Routine Size: 


0000" CF 


113 bytes, 


11 


000000006 3 


000000006 98 


53 
50 


Routine Base: 


000000006 : 


33 


$$ A 
8 A 
4 AC 
4 A 

a 
08 AG 
08 AG 
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7 VAX-11 Bliss- 
o:3/ Bliss-32 


DISKSVMS SMASTER: 
STATUS, 1$ 

STATUS 

=(SP) 


#EVLS_N NE 
LIBS$SIGNAL 
(Re), TATUS 


CRO)” LENGTH 
1EC 


mol LTesrRee -vM 
SINK HEADER, RO 


INK_HEADER, RO 


R2 
H C_HEADER, R1 


aes. R1 


TDAS 


3 
m 
o 


omnes 


Bs 
R35, RO, EVL$B_RCVDONE 


V4.0-74 Pa 
evi sRCSRECEIVER.B3209°" 


1271 


1273 


YANN 
EWN 


oO 
co 


WN "SO OONOUSWN —OVDONOUES WO 
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seeds" 
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DOONAN E WP $ OOONOUE 
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ROUTINE shutdown: NOVALUE = 


' 

: This routine is called when the network is shutting down 
} to gracefully close all sinks and incoming Links so that 
: EVL goes away quietly. 
; Inputs: 
None 
| Outputs: 

; None 


BEGIN 


LOCAL 
ptr: REF BBLOCK, 
next_ptr; 


Pointer to sink or iec block 


tr = .iec_header; 
_ -ptr NEQ iec_header 


Until end of Linked List, 


BEGIN 
next_ptr = .ptr Ciec$l_link]; 
close_event_link(.ptr); ! Abort the as Link 
! and Link to next in chain 


al = .next_ptr; 
ND; 


Start at first sink block 
Until end of Linked List, 


tr = .sink header; 
WHILE -ptr REQ sink_header 


BEGIN 
ptr Csink$b_state] = sink$c_off; 


: ! Force deletion of sink 
wkq$add_work_item(output_events, .ptr); ! flush the sink events 
ee geeds wore, |tonsCpiete s1mk. te): ! and delete the sink 
ace = .ptr Csink$l_link]; ! Link to next one 


001C 00000 SHUTDOWN: 
WORD 


: Save R2,R3,R4 
54 0000" CF 9 0 : MOVAB IEC_HEADER, R4 
3 64 p 9 MOVL JECTHEADER, PTR 
; 64 A 1$: MOVAB IEC"HEADER, RO 
0 2 9 CMPL PTR, RO 
f 1 BEQL «= $ 
53 2 D 1 MOVL (PTR), NEXT_PTR 
DD 0001 PUSHL PTR 
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Start at first Link context block 
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16 
RECEIVER 16- Se VAX-11 Bliss-32 V4. 
yee titi Wea eeen TBs Pa eee, Natale tae chic skcSrecerver.o320%>" 
7S oF 01 FB 90017 CALLS #1, CLOSE EVENT LINK 
2 35 v0 900ic HOV” NEKT_PTR, “PTR 
Ee AG DO g$: HOVE, SINK HEADER, PTR 
FROG $: MOVAB —SINKCHEADER, RO 
2 CMPL PTR, "R 
if C BEQL «4S 
09 a2 o 9 ; MOVE =so#1, 9(PTR) 
2 oD PUSHL PTR 
oooov Ce YF PUSHAB OUTPUT EVEN 
0000G CF $ FB S CALLS we, W WKOSADD_ TORK. ITEM 
rpso tf BF Bdose PUSHAB at 
00006 ¢F 2 FB 00043 CALLS UKOBADD _WORK_ITEM 
2 65 D0 0004 Move’ (PTR), 
DS 11 00048 BRB 
04 0004D 4$ RET 


; Routine Size: 78 bytes, Routine Base: SCODE$S + 04C0 
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0004 00000 WAIT_FOR_EVENT: 


> 744 1317 1 ROUTINE wait_for_event (iec): NOVALUE = 

; 745 1 18 1 

; 74 1519 1 !<<- 

; 74 1320 1! 

; 74 bse This routine is called to obtain processed eyenes from 

3; 74 1 ¢ 1! the receiver's —— logical Link. Each incoming event 

; 750 1 1! is immediately queued to the disposal queue for the appropriate 

: 91 1324 1! sink types. 

; £ ¢ 1325 1! 

.£ 1 § 1 ! Inputs: 

; 754 1 1¢ 

; 03? } 4 : jiec = Address of incoming event channel context block 

s for 1330 1 ! Outputs: 

; 758 1331 1! 

3 i 1 ¢ 2 None 

; 760 1 1 !e-- 

: 761 1334 1 

; 76 3 5 § BEGIN 

; 76 1336 

3; 764 1337 2 MAP : | 

; oe? 1338 2 iec: REF BBLOCK; ! Address of incoming event channel | 

: 767 1340 2 LOCAL | 

; 768 1341 status; 

; 769 1346 

; re P 134 status = SQIO(FUNC = IO$_READVBLK, ! Get event from incoming Link 

3; 771 P 1344 CHAN = .tec Ciec$w chan], 

3; 77 P 1345 2 EFN = evl$c_asynch_efn 

3 7 P 1346 2 I0SB = iec Ciec$w_Tosbi,! Address of 1/0 status block 

: 774 P 1347 2 ASTADR = event _received,! Address of completion routine 

: 775 P 1348 2 ASTPRM = .iec ! Giving IEC as routine parameter 

: 776 P 1349 2 Pl = iec Ciec$t_eventd, ! Address of event buffer | 

3 ads 1330 § P2 = iec$c_maxevtlen); ! Length of event buffer 

3; 779 1326 2 IF NOT .status ! If unsuccessful | 

; 780 135 THEN 

3; rel 1354 BEGIN | 

3; 1355 SIGNAL (msg(readevt) ,0,.status); ! then Signal error 

; 78 1356 close_event_lLink(.iec); ! close Link; deallocate storage | 

> «784 1357 $ D; 

; 785 1358 

3: 786 1359 1 END; 
| 
| 
| 
| 


WORD Save R2 ; 13? 


7E 7C 00002 CLRQ. = =(SP) ; 1350 

7E 7C 000 CLRQ. = =( SP : | 
ze FA BF 9A MOVZBL #250, -(SP) ; 
5 4 AC BO 000A movL  JE¢ P | 
5 Ag OF PUSHAB 85(R2) : | 

52 0d 0001 PUSHL_ R 2 | 

0000v CF 9F 0001 PUSHAB EVENT_RECEIVED ; | 


Ib-5e ep-1 VAX-11 iss-32 V 
1 ety 7 9}: 35; 27 Disk $v nen ASTER: tty be OSACSRECEIVER. B32; pase of 
0c 42 9F 00017 PUSHAB 12(R2) ; 
3 po 1A PUSHL # F 
7E OA Ag 5c 1 MOV ZL Hee -(SP) : 
000000006 09 FB CALLS 2, SYS$Q10 : 
1 E 09 BLBS TAfUS, 1$ : 1352 
0D ¢ PUSHL + 735 
000000006 f pS 6 a as READEVT : 
000000006 00 p FB CALLS , LIBSSIGNAL ; 
DD D PUSHL + 1356 
FEFD OCF 07 FB F CALLS , CLOSE_EVENT_LINK : 
04 44 1$: RET : 1359! 


; Routine Size: 69 bytes, Routine Base: S$CODE$ + OSO0E 
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3 f } $9 } ROUTINE event_received (iec): NOVALUE = 

e | 
: 790 1 86 1 !--- 

; 791 1565 1 ! 
; 79 1364 1! This AST routine is called when a new event has come 
: 79 1365 1! in over the logical Link. The event is queued to the 
; 794 1 $8 1! appropriate sink type(s). 

; 795 1367 1! 

; 79 1368 1 ! Inputs: 
; 1 4 1! 
; 798 1370 1! iec = Address of incoming event channel context block 

; 799 137) 3! 

; B20 1 i 1 ! Outputs: 

; 801 1375 1! | 
; 80 1374 1! None 
; 80 1375 1 !--- 

; 804 1376 1 
; 805 1377 2 BEGIN 
; 806 1378 

; 807 tT MAP 

; 43 : 0 iec: REF BBLOCK; ! Address of incoming event block 

; 810 1 S IF NOT .ie; Ciec$w_iosb] ! If error from Q10, 

; 811 138 THEN 

; Sig 1384 BEGIN : 

3 Biz 1382 on™ Ciecss_iosb] NEQ ss$_Linkabort ! If Link was not aborted, 

> 815 1389 SIGNAL (msg(readevt), 0, .iec Ciec$w_iosb]); ! then signal the error 

> 816 1388 ; close _event_link(.iec); ' close the Link until re-established 

; 817 138, RETURA; 

3 gis 1390 3 

s 8 1391 

; 820 1336 wkqSadd work. jteaCey| Squgue_eyent . ! Queue event to sink(s) 

: as! 1337 -iec Ciec$w_iosb1J, iec Ciec$t_event]); 

3 55 1395 wkq$add_work_item(wait_for_event, .iec);! Issue another Q10 anty after 

3 824 1396 ! the entire queue is cleaned out 

: $5? 139 

; 826 1398 1 END; 


0004 00000 EVENT_RECEIVED: 
-WORD 


Save RB : 1360 | 
a eC fm 
20E4 $i ¢ A i A cn RS} #8420 > 1385 
7E oc A ¢ 1 MOVZWL 12(R2), -(SP) > 1387 
7E D 1 CLRL = (SP) : 
000000006 8F DD 0001 PUSHL #EVL$_READEVT : 
000000006 00 : FB i ae CALLS i LTBS$SIGNAL ‘1368, 
FEDO CF FB 3 CALLS #1, CLOSE_EVENT_LINK — 


voe=b85" 


; Routine Size: 


73 bytes, 


7E 
0000G CF 


0000G CF 


Routine Base: 


18s 


Ag F B 2$: 
3 a C 
0000v et F 
3 FB 00038 
32 0D popes 
FF78 86CF OF O005F 
02 FB 00043 


SCODES + 0553 


CPr13R¢ QE:Bhie, | Wht UwGAASfeRscLoc shcSnecerver.eszei%° 


PUSHAB 
patty’ 
HAB 


4(R 
feat 
autue ve VOORK. ITEM 


GAIT FOR_EVE 
#2, QxQSADD EOORK ITEM 


eo ee ‘ | 
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3 3 1798 ! GLOBAL ROUTINE evl$queue_event (length, event): NOVALUE = 

3 1208 1 !<e< 

; 1 1006 1! 

; § 1405 1! This routine is called to queue a given event record 

$ 8 abe } H to the appropriate sink type(s). 

: 835 1406 1 | Inputs: 

3; 68 : 1407 1! 

3 8 1408 1! Length = Length of event record 

; 8 : 1692 : H event = Address of event record: | 
; 826 ii) 1 } 0) Function code (always 1 = event record) | 
; 84) 1216 1} 1) Event flags (byte) which sink(s) get the event 
3 Hk 141 | 2) Event code (word) 
3; «484 1414 1! 4) Time of event (6 bytes? in Julian half-day format | 
; 844 1415 1! 10) Source node (2 + i- bytes! address and name 

: 5 at} 1! 2) Event entity (14n areee describing Line or node ID | 
3 ° 141 1! 2?) Event data, depending on event code 

3; «84 1418 1! | 
; 848 1419 1 ! Outputs: 

3; 849 1420 1! 

: 850 1421 1! None 
; «851 14 ¢ 1 !-- 

; $36 14 1 

; 85 1424 BEGIN 

3; «854 1425 

; 855 14 ° MAP 

: 837 1? event: REF BBLOCK; ! Address of event record 

3 | 
; 858 14 § LOCAL 

; 859 1430 event_over flow: BYTE, ! True if event queue overflowed 

: ast 1 ; sink: REF BBLOCK; ! Address of sink descriptor block 

: 
: 143 IF .evl$gl_logmask Celg$v_rcvevt] ! If logging received messages, 

3 Bes 1434 THEN si ital s — . 

; He \ee2 BEGIN 

3 5 1436 LOCAL msgdesc: VECTOR (2); 

: 366 leet msgdesc = .length; ! Setup descriptor of message 
: 86 1438 pepgese = .event; 

: 868 1439 EVLSPRINTLOG($BITPOSITION(eL $v_rcvevt), ! Log the received message 

3; 869 1440 ZASCID ‘Event received’ ,0,msgdesc); 

; 870 1441 ND; 

: 71 1346 

: % 144 event_overflow = false; ! Preset no overflow 

g Br 1242 sink = .sink header (03; ' Start at first sink entry | 
; 875 1368 WHILE .sink NEQ sink_header ! Until end of sink List | 
3 6 144 dO 
o or 1ee8 BEGIN 

: 878 144 IF .Cevent Covesh .f12082)<.sink Csink$b_type}~1.1> ! If this sink gets event, 
; 879 1039 as -sink Csink$b_state] NEQ sink$c_off ! and delete not pending, | 
: 1 14 é 4 BEGIN ! then insert into sink's queue 

3 ; 14 4 LOCAL 

: Hi 1454 4 status, 

: 1455 4 


entry: REF BBLOCK; ! Address of event data block 


H 16 


; 885 14 § 4 
; 14 4 status = evl$allocd k (ev $c_size+. length, _, - tama -evtbll, entry); 
; ss 14 4 4 k tgink nk aevents o} nk C sini “evental ¢ ' 
5 14 4 entr eves w_evts ize) = .lengt 
: 88 146 4 CHSMOVE(. Length, .event, poy "tevast, qvent]); 
3 .status first entry in queue, 
ee ae A , 
3 36 1288 4 wkqSadd_work gehen we events, .sink); ! start emptying queue 
3 er 1088 2 tit sink$w_events] GEQ0 max _queued_ events ! If too many events, 
; 895 1398 4 event_overflow = true; ! then mark events are overflowing 
3 sink = .sink Csink$l_Link); ! p to next sink type 
98 1468 ink ink Csink$l_Link] ! Ski ink 
; 898 1469 END; 
; 899 1470 
; 900 1471 END; 
-PSECT S$PLITS,NOWRT,NOEXE,2 
P.AAP: .A vent received\<Q><0> 
00 64 65 76 69 65 63 65 72 20 74 6E€ 65 76 43 ppogc P SCII \E ived\<0><0 
010E000E itd P.AAO: .LONG 17694734 
00000000* 00080 ADDRESS P.AAP 
-PSECT S$CODE$,NOWRT,2 
O3FC 00000 ENTRY EVLSQUEUE_EVENT, Save R2,R3,R4,R5.R6,R7,R8,-; 
5E Bf ff 000 0 SUBL2 #12, 
15 0000G CF 6 000 BBC #6, ght Wise. LOGMASK, 1$ 
04 AE 04 AC 00 MOVaQ Leas MSGDESC 
04 AE 001 PUSHAB est 
7E zB CLRL 
0000' F BF 1 PUSHAB BRAD 
6 DD 0001 PUSHL 4&6 
0000G CF 4 fe 01 CALLS #4 ty ee 
9 94 00020 1$: CLRB EVENT 0 ERFLOW 
5 0090" CF 4 8 MOVL x AEA ER, SINK 
5 0 AC 3 MOVL STEN NT. 
28 0000' F F 2$: MOVAB SINK HEADER, RO 
6 D CMPL giNK. ~ RO 
a BEQL $ 
50 08 <A6 9A MOVZBL 8(SINK), RO 
2 d7 DECL . 
41 01 A7 3 BBC RO, 1(R7), 4$ 
01 09 «Ab | 4 CMPB so SINK), #1 
B 1 4h BEQL 4$ 
4 1) ) 4 PUSHL of 
10 A6é DD 4 Pus 6(SINK) 
7E 43 C1 ADDL #12, LENGTH, -(SP) 
00006 cr Fe 2 CALLS #3, EVLSALLOCDBK 
d MOVL RO, STATUS 
0A A6 B86 0005 INCW —- 10¢SINK) 


1ergeen 88s Pbi3bie, | Peg ShASfenschuc shcSeecerver.es203* ob 


Sete Se Se Se Ge Se Se Se Se Ge Se Se Se Se Se Se Ge Ge Se Ge Ge Se Se Ge Se ee 


POOOPKPOOVUyS KOO 
UAW NAGOOM 
OOO "FO OWOO 


yore ome te * 4 


; Routine Size: 


VAX-11 Bliss-32 Thad Page 
DISKSVMSMASTER: CEVL.SRCJRECEIVER.832; 
NTRY, 


E 
LENGTH, 
LEN NGTH, Ln 12(RO) 
STATUS 
SINK 
OUTPUT sth 
9 wKg ADD THORK.. ITEM 
10(SINK), #70 
4 

1 

S 

é 


SINK 
#1, EVENT_OVERFLOW 
K), SINK 


(SINK) 
2 


Bete Ge Se Se Ge Ge Ge Ge Ge Ge Se Be 


. er SS 


——————— 
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ROUTINE output_events (sink): NOVALUE = 
| 
| 
| 


3 1472 1 

3 1475 (1 

905 aes yt 

; 206 1476 1 This routine is called when an qvent is queued for 

; 1477 1! any sink. ALL events for the given sink are written 

; 1478 1! to the appropriate gest nation depending on the sink 

; 1479 1! type. Note that this routine may b cat ed wher 

: 9 14 1! there are no events queued if the sink is turned off 

; 4 \6 | and wants to be cleaned up here. 

BE HRRE | | tues | 

: B12 1? 5 ! sink = Address of sink descriptor block 

: 917 14 ° 1 | Outputs: 

; 918 1488 1! 

3; 919 1489 1! None 

: 920 1490 1 !<<< 

; 921 1491 1 

3; 9 g 1336 BEGIN 

eee | 

: 925 1495 sink: REF BBLOCK; ' Address of sink block 

188 8 voc | 

: 928 1398 event_data: REF BBLOCK, ! Address of next event data block | 

3 9 1338 event: REF BBLOCK; ! Address of actual event record | 

: oe 130) IF_.sink Csink$b_state] EQL sink$c_hold ! If holding sink output, 

; 338 1308 RETURN; ! return without dequeueing anything 

: ate 1302 WaILe NOT REMQUE(.sink Csink$l_evtfl], event_data) ! Dequeue the next event 

; 33 1209 BEGIN 

; 938 1508 sink Csink$w onty: = .sink Csink$w_events] - 1; ! Decrement events left 

3 372 1202 event = event_data Levq$t_event]; ° Address the actual event record 

; 41 1311 IF _.sink Csink$b_state) EQL sink$c_on ! If sink is ON, 

; 38 1318 case -sink Csink$b_type] FROM 0 TO sink$c_monitor ! Dispatch to routine 

: 945 1515 ET 

3 308 1318 a qutput consoles <a : Oytpus to sogeehe 

; -Sink, .event, .event_data Cevq$w_ev e]); 

: 948 1518 [sinkSc_file}: " output_file utput 0 file | 

; rH 133? Coinks sear ink, .event, .event_data Cevq$w_evtsize]); 

3 sink$c_monitor]: 

3; «6951 1521 4 BEGIN | 

: 328 15 § 4 output_opcom( ! Oytput to onron terminals 

; 95 15 4 -Sink, .event, .event_data Cevq$w_evtsize)); | 

> 954 1524 4 output_moni tor ( : Output rs) pryce s (if any) 

: 939 13 5 4 we ~Sink, .event, .event_data Cevq$w_evtsizeJ); | 

; 389 15 $ ; CINRANGES: " SIGNAL (msg(badtype), 1, .sink Csink$b_type)); | 

3: 958 1528 TES; 
| 
| 
| 

ed 


K 16 
Se 


RECEIVER 1 VAX-11 Bliss-32 V4. 36 
] OA YS 12: Hat 7 9}: 35 7 Disk SVMSMASTER: chur’ Sec RECEIVER. B32, 79 ea) 
; 959 1 
; 960 1 é evi $deallocdbk(.event_data); ! Deallocate data block 
; +d ! END; 
3; © 1 g IF .sink Csink$b_t yet? EQL sink$c console ! If console sink, | 
: $¢: } : AND .sink Csink$l_closertn] NEG 0 ! and currently open, 
3 9 1 § (.sink Csink$l_closertn])(.sink); ! then close the sink at the end 
. oe: Tena tes irk tinged 
; ! evice from n ed u 
; 969 1539 END; . ¥ 
-EXTRN EVLS$_BADTYPE 
001C 00000 OUTPUT_EVENTS: 
WORD Save R2,R3,R4 3; 1472 
50 04 AC 00 00002 MOVL SINK RO > 1501 
02 9 AO 91 00006 CMPB (ROS, #2 : 
01 12 Boo A BNEQ 1$ : 
04 0000C RET 3 
54 04 AC Bo 44 1$ MOVL SINK, R4& ; 1505 
52 0c 8 F 00011 2$ REMQUE @12(R4), EVENT_DATA : 
3 1D 00015 BVS 9$ 3 
54 4 AC oo 0017 MOVL SINK, R4& ; 1508 
A AG : 0018 DECW 19¢Ré) : 
53 OC A2 ; 001 MOVAB 12(R2), EVENT 3: 1509 
09 AG OY 888 TSTB 9(R4) : 1511 
5A 12 000 BNEQ $ r 
03 00 08 <A4& 8F 00027 CASEB (R4), #0, #3 3 1513 
0026 0017 0008 0042 0002C 3$: . WORD {s- I 3 
eis 3 
7E OA a2 3C 00034 4$: MOVZWL 10(EVENT_DATA), -<SP) : 1517 
DD 00038 PUSHL EVENT $ 
4 DD OQO03A PUSHL R4 3 
0000V CF 3 fo 03C CALLS #3, OUTPUT_CONSOLE é 
| bah BRB 8$ : 1516 
7E OA A C 43 5$: MOVZWL 10(EVENT_DATA), -(SP) 3; 1519 
2 DD 47 PUSHL EVENT 3 
4 odd 49 PUSHL R4 3 
0000V CF 93 fo 4 CALLS #3, OUTPUT_FILE 3 
F \ BRB % F: 1338 
7E OA 4 C 6$ MOVZWL 1OCEVENT_DATA), -(SP) 3; 182 
1) PUSHL EVENT 3 
4 oD PUSHL R4 : 
0000v CF FB A CALLS & OUTPUT_OPCOM 3 
7E OA A2 3¢ F MOVZWL 10¢EVENT UORTAY. -(SP) : 1525 
1) 9) PUSHL EVENT 3 
4 ovo PUSHL R4 F 
0000vV CF ; fo CALLS #3, OUTPUT_MONITOR 3 
1 C BRS $ 3 1313 
7E 08 Ad QA 7$: MOVZBL 8(R4), -(SP) : 182 
gt 0D PUSHL #1 3 
00000000G 8F DD 7 PUSHL #EVLS_BADTYPE : 


ceeeneesicmngnnesnaeasets ~ <4 


16 | 
RECEIVER b-5e =1984 01:37:57. VAX-11_BLiss-32_v4.0-74 Page 37 
aa Nt racer ee ee Pee Al Ste Rechte sacSnecerver.esante* cid) 
000000006 00 FB A CALLS #3 L IBSS1GNAL : 
Dp 8$: PUSHL EVENT_DATA : 1530 
00006 CF CALL #1, EVLSDEALLOCDBK i 
0 6 A A 9S: MOVL INK, RO : 1293 
8 A CMPB (ROS, #1 : 
0 pnga 0$ : 
22 =A p TSTL 4(RO) + 1534 
06 7 BEQL 108 : 
dD 099 PUSHL RO + 1536 
22 «BO 01 FB 00098 CALLS #1, @34(RO) : 
04 OO09F 10$: RET + 1539 


3; Routine Size: 160 bytes, Routine Base: S$CODE$ + 0623 


RECEIVER $ep-1984 01:37:57 VAX-11 Bliss-32 V4. 
tee 16-bep-1984 Pet eH DISKSVMSMASTER: tii She RECEIVER.832; co 
: 48 } r¢' } ROUTINE output _console (sink, event, event_length): NOVALUE = 

: 378 1 4g 1 !--- 

; 974 1543 1 

; 975 1544 1! Output an event record to the console sink. 

; 378 1545 13 

s 97 1546 1! Inputs: 

3 44: 1547 1/3 

3; 9 1548 1! sink = Address of sink descriptor block 

; 980 1549 1 event = Address of event record 

3 38 : ? ! event_length = Length of event record 

: 9 ¢ 1552 1 ‘ outputs: 

; 984 1 § 1 

; 985 1554 1: None 

s; 9 1555 1 i-- 

; 98 1556 1 

; 988 1557 BEGIN 

3; 4989 1328 

; 990 155 MAP 

3; 991 1560 sink: REF BBLOCK, ! Address of sink block 

3 338 1561 event: REF BBLOCK; ! Address of event record 

; 99 1306 

: 994 156 LOCAL 

; 995 1288 status, 

3 eae 1392 desc: VECTOR (2); ! Descriptor 

: 998 1369 IF .sink Csink$l_closertn] EQL 0 ! If sink not yet initialized, 
3; 999 1568 THEN 

3; 1000 1569 BEGIN 

: 1001 1570 IF .sink Csink$b_namelen] EQL 0 ! If no sink name specified, 

: 1OR6 1571 THEN 

: 100 1326 4 BEGIN 

3 1004 1573 4 sink Csink$b_namelen] = ! then default to _OPA0: 

; 1005 1324 4 cH HSHOVE (6, UPLIT BYTEC' Oba0: "), sink Csink$t_nameJ); 

: 1007 1326 F's eeiet. si ! then open the file/device 

3 1S 1377 gaink tsfarst: * closertn] EQL 0 ' If unsuccessful, 

; 1010 1379 EN RETURN; ! then forget about the output 
: 101 1581 ; 

3 ii 13 § format_event(.event, .event_length, write_line, .sink); ! Format the event 
; 1913 12 4 2 desc (0) = 0; 

; 1918 1 5 vrite. Line(.sink, desc); ! write a null Line afterwards 
: 1018 1389 END; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
3A 30 41 50 4F SF 00084 P.AAQ: .ASCII \_OPAO:\ ; 


a 


a _ ey 


: 

CEIVER 16-5 ~1984 VAX=11 BLiss-32_V4.0-7% 9 
Wbetb05 r3een 18s 93i3k:8,  SNKSUMRMASTERSCEVE SRCIRECEIVER.B3208% (15). 
| 


-PSECT SCODE$,NOWRT,2 : 
007C 00000 OUTPUT_CONSOLE: z] 
, WORD Save 2 R2,R3,R4,R5,R6 : 1540, : 
3 08 Cc : SUBL : 3} 
é 6 ac D MOVL INK PRé > 1567. : 
2 Ab OD TSTL 4(R6) : :] 
1C 12 0000C BNEQ § : : ] 
2 a6 95 000 TSTB =: 46 (R6) : 1570) :] 
B 1 : 1 BNEQ 1$ : $1 
3e AG 6 9 1 move #6, 46(R6) ; 1573 : 1 
2F aA 0000" CF 6 2 901 MOVC3 #6, P.AAQ, 47(R6) 3 1574) 3} 
6 DD OOOIE 18 PUSHL ; 1576 i] 
0000v CF 01 FB 000 CALLS #1, OPEN_FILE ; | 2] 
22 AG OD 900 TSTL 34 (R6) 3 1577) : | 
1A 13 00028 BEQL § : : 
Se pd 002A 28: PUSHL R6 ; 1982 | 
0000v CF 9F 0002C PUSHAB WRITE -LINE ; | 
7E 08 AC 7D 00030 mova EV VENT: (SP) : 
00006 CF 04 FB 000 CALLS FORMAT _EVENT ; 
6E D4 00039 CLRL bEgc > 1584 
4040 8F BB 00038 PUSHR #*M< > 1585 
0000v CF 02 FB 0003F CALLS #2, <URITE. _LINE : 
04 00044 38: RET > 1587 


; Routine Size: 69 bytes, Routine Base: S$CODES + 06C3 


Be Oe Be Be Be Se Se Se Be Oe Ge Be Oe Oe Se Ge Bt Se Se Ge Be Se Se Se Be SH Se Oe os Se Be Se Se Be Se Se Se Se Ge Se Ge Ge Se Oe Se Ne Oe Ss Se Ge Se Ge SHS Se ee ae 


VPWN 0 O@OVOurwn— 


lolelelelelelelelelelelelelelelelelelelq) 


Ww 


ESS 


SSSERRRRREE 
WN OC O@NOuUrwN— 


ojojojajajajaja) 
ya 


MVwnvw 


ODOnOw 
Wirrornrn 
OMA TSS SOURS ca WRATH SSE UTTAR SSS ESPN SSS 


WAAL AAI POOP IPPOPOPOPONIPUPIPOPOPONINUNUPIPIPIPPIPUNIPUPUPIPIPINIII a8 at ad et tt tt tt a 
= x > 


SESEFERES 


Bt 


PRAEAAEAAXA AA AAA AAA AA AA AAAA AA AAA AAAAAASAAAAE AAAs 


Www 


Ee 


ee ee ee ee ee a i ee eee 
ee a a ed dD 


Sssoos 
SARANISS 
FRSFF 

PON =O Oe 


| 


C000 Oe COO Oro 


1 
16-Sep-1984 0 
14-Sep-1984 1 


ROUTINE write_line (sink, bufdesc): NOVALUE = 


1 
2: 


This routine is called at the end of every Line 

in the formatted display. The Line is written 

to the device or file specified by the sink. 

lf we are Logging received events to the batch 

job log, write the formatted text to the log as well. 


sink = Address of sink control block 
bufdesc = Address of descriptor of current output buffer 


Outputs: 


! 
} 
} 
i 
; Inputs: 
i 
i 
i 
i 
i 
The Line is written. 


BEGIN 


P 
sink: REF BBLOCK; 
BIND 


Address of sink control block 


desc = .bufdesc: VECTOR ! Address line descriptor 
timeout = UPLIT(-15*10*1006*1000,-1); ! 1/0 timeout = 15 seconds 


LOCAL 


type REF BBLOCK, ! Address of FAB 
rab: REF BBLOCK; ! Address of RAB 
IF .evl$gl_logmask Celg$v_rcvevt) ! If logging received events, 
LIBSPUT_OUTPUT (desc); ! then write Line to batch job log 
IF .sink Csink$l_closertn] EQL 0 ! If file no Longer open, 
RETURN; ! then skip it 
rab = .sink Csink$l_rab]; ! Get address of RAB 
fab = .rab Crab$l_fabJ; ! Get address of FAB 
rab Crab$w_rsz -desc (0); ! Set up length/address of this Line 


rab Crab$l_rbf = ldesc 1]; 
status = $PUT(RAB = .rab); 
if NOT .status 

THEN 

BEGIN 

LOCAL name: VECTOR 


COR (23; 
name fo) = .sink [sink$b_namelen); 
name [1 


Output the record 


If error detected, 


= sink Csink$t_name); 
SIGNAL (msg(writefile), T, name, .status, .rab Crab$l_stv]); 


+1 5H VAX-11 Bliss-32 v4.0-7 
8:54 


4 Page 4 
DISKSVMSMASTER:CEVL.SRCIRECEIVER.B32;1 (16 


a a a 


1 


; Routine Size: 99 bytes, Routine Base: S$CODE$ + 0708 


) 

RECEIVER 16-Sep-1984 01:37:57 VAX=-11 Bliss-32_v4.0-74 Page 41 RE( 
Woreb00 16-Sep-1984 93: 8:54  DISKSVMSMASTER: LEV. SRCIRECEIVER.B32: 1" (16) v0 
3 1077 1645 sink Csink$v_error] = true; ! Suspend all operations on sink ; | 
i3 1S? 128 “ ! until data base change ; | 
13 307 164 END; ; | 
3 1080 1648 3 
3 1081 1649 1 END; : |] 
: ‘ 
s | 
| -PSECT S$PLITS,NOWRT,NOEXE,2 : 

0008A -BLKB 2 | 3 1 

FFFFFFFF F70F2E80 OO08C P.AAR: .LONG -150000000, -1 ; 3 

| TIMEOUT= P.AAR 3 | 

-EXTRN SYSSPUT, EVL$_WRITEFILE | 7; 
| | ; 

| -PSECT $CODE$,NOWRT,2 | 2 | 
y 

001C 00000 WRITE_LINE: 3 | 

«WORD Save R2,R3,R4 : 1588) 3 1 

| SE 08 C2 0000 SUBL2 #8, SP ; | | 

54 08 AC DO 0000 MOVL BUFDESC, Ré : 1614) 31 

09 00006 CF 06 £1 00009 BBC #6, EVLSGL_LOGMASK, 1$ ; 1622) 3 

54 DD 0000F PUSHL ; 1624) 2] 

000000006 00 01 FB 90011 CALLS #1, LIBS$PUT_OUTPUT : | 3 

| 53 04 AC 00 00018 18: MOVL SINK R3 ; 1626, : | 

22 AS DS O00IC TSTL 4(R3) : | 31 

41 13 OO01F BEQL ¢3 : | 3 1 

52 1E AS 00 90021 MOVL 0(R3), RAB > 1630 | 2 | 

| 50 3¢ =6A2 «=O 00025 MOVL 60(RABS, FAB > 1631) 1 

| 22 ag 64 BO 00029 MOVW (R4), 34(RAB) > 1633) 31 

28 OA 04 As dO 000¢p MOVL  4(R4S, 40(RAB) > 1634. 7. | 

52 DD 00032 PUSHL RAB > 1636) 3 

200000006 00 01 FB 00034 CALLS #1, SYS$PUT ; z 1 

24 50 £8 00038 BLBS STATUS. $ > 1638 3 1 

6E 2E A3 9A O003E MOVZBL 46(R3), N > 1642 3 

06 AE gf AZ FE 000Ke MOV 47(R3), NAME+4 ; 1643) : 
Oc A2 DD 0004 PUSHL 12(RABS > 1644 | 3 

50 DD O004A PUSHL_ STATUS ; | 3 

08 AE 9F 0004C PUSHAB N 3 | 3 | 

01 DD 0004F PUSHL #1 ; 3 | 

000000006 8F DD 00051 PUSHL M#EVLS_WRITEFILE ; 3 
| 000000006 00 05 FB 00057 CALLS #5, LTBS$1GNAL ; | : 

| 14 AS 02 88 0005 BISB2 #2, 20(R3) > 1645 | 3] 

04 00062 2$: ET ; 1649 | 


; 
RECEIVER 1b-sep-1986 01:37:57 VAX=11_BLiss-32 v6.0-76 Page 42. 
Nae titd rapa RRs Pasee Pee thle tees chor sheSnecerven.ese.foe 17s 


IF .sink Csink$l_closertn] EQL 0 
THEN 


13 198? i } ROUTINE output_file (sink, event, event_length): NOVALUE = 

1085 1652 1 !=<- 

3 1086 16 : 1} 

's 108 1654 1! Output an event record to a file. 

; 1088 1655 1! 

/3 1089 1698 1 ! Inputs: 

+3 1090 1657 1! ; 

3; 1091 1658 1! sink = Address of sink descriptor block 

3 1998 1659 1! event = Address of event record 

3 Hy ad, Hb : event_length = Length of event record 
'3 1095 166¢ 1 ! Outputs: 
> 1096 1663 1 | 

; 1097 1664 1! None 
3 1098 1665 1 !--- 

3; 1099 1968 1 

; 1100 166 § BEGIN 
3; 1101 1668 

: 1108 1669 2 MAP 

; 110 1670 sink: REF BBLOCK, ' Address of sink block 

3 : Be : 4 event: REF BBLOCK; ! Address of event record 

3; 1106 1 rg § LOCAL 

3; 1107 1674 2 status, : : 

3 name: P ' Descriptor of file name 

1108 1675 2 VECTOR (2) 'D t f fil 

ig : +4 ; 6 § rab: REF BBLOCK; ! Address of RAB 

5 ; 1] : % 2 if -sink Csink$v_error] ' If in error state, 

: ; 18 : $9 ; RETURN; ! then don't do anything 

3s 1115 1 ae name [0] = .sink Csink$b_namelen]; ! Setup descriptor of file name 
3 ; 18 : 8 § name (1) = sink Csink$t_nameJ; 

3 : 18 : 2 ! If sink is not yet initialized 
3 112 1 

ee 1 

3 : : 

3 7 1 § 

3 7 1 

37 1 

; 3 1 

3; 1 1 

3 7 1 

37 1 

3 9 1 

3 7 1 

3 3 1 

3 : ' 

3; 7 1 $ 

s 3 1 1 


le le al a et ee a le ed ae a ld 
SNA AA AAAAAAAAAAAPAASAASAAAAAAAAAAAAAS 


84 
85 
G 86 
44 open_file(.sink); ! then open ine file 
23 89 rab = .sink Csink$l_rabJ; ! Get address of RAB 
2 90 rab Crab$w_rsz] = .event_length; ' Set length of event record 
$¢ 4. rab Crab$l_rbfJ = .event; ! and address 
23 $8 status = SPUT(RAB = .rab); ! Write event record to file 
8 95 IF NOT .status ! If error detected, 
a 96 THEN 
97 BEGIN apt 
1 98 SIGNAL (msg(writefile), 1, name, .status, .rab Crab$l_stv]); 
3 99 close _file(.sink); ' Clos- sink file r , 
00 sink Csink$v_error] = true; ! Suspend all operations on sink 
34 01 ' until data base change 
5 be END; 
0 
7 04 


END; 


a 


VAX-11 Bl issese ye 


130% PEE ISTH -0-74 43 
=1984 12:28:54 DISKSVMSMASTER:CEVL.SRC RECEIVER B32: 79 °c?) 


000C 00000 oUTPUT_FILE: 
~ WORD - R2,R3 : 1650 
5 08 C 9902 SUBL2 #8, SP : 
04 AC D 0 MOVL SINK, R3 : 1678) 
51 16 AB 01 £0 009 BBS 1, g0CR3) 2$ : 
6E 2— AS’ 9A 0000 MOVZBL G(R ), NAM : 1682 
04 AE ¢F A i 0001 MOV 47(R3), NAME+4 + 1683. 
2 Ad 05 0001 TSTL  34(R3) > 1685. 
07 12 00014 BNE if : | 
3 pd 0001C PUSHL R + 1687) 
0000v ct 01 FB OO01E CALLS #1, OPEN-FILE : 
2 1E A3 DO 9002 1$ MOVL  30(R3), R : 1689) 
32 a2 OC AC BO 00027 MOVW  EVENT_LENGTH, 34(RAB) + 1690) 
8 08 ac dO 900¢¢ MOVL EVENT? 40 ; 1691 | 
52 DD 00031 PUSHL RAB + 1693 | 
000000006 00 or FB 00033 CALLS #1, SYS$PUT : | 
22 0 £8 0003A BLBS STATUS, 2$ ; 1695, 
0c A2 DD 0003D PUSHL 12(R + 1698 
50 DD 00040 PUSHL STATUS : | 
08 AE 9F 00042 PUSHAB NAM : | 
07 DD 00045 PUSHL #1 : 
000000006 8F DD 00047 PUSHL #EVLS$_WRITEFILE ; | 
000000006 00 05 FB 00040 CALLS #5, LYIBSSIGNAL : 
53 DD 00054 PUSHL R3- > 1699. 
0000v CF 01 FB 00056 CALLS #1, CLOSE_FILE : 
14 AB 02 88 0005 BISB2 #2. 20(R3) : 1700 
04 0005F 28: RET : 1704 


; Routine Size: 96 bytes, Routine Base: S$CODES + 0768 


i a ed ed td td dd 


Open a file sink. 


i Inputs: 


i Outputs: 


None 


sink: REF BBLOCK; 


OONAVLS WAN "OO ONOUE WO 


name: VECTOR (2), 
rab: REF BBLOCK 
fab: REF BBLOCK: 


wn 


nor MMNMNIN 2 2 tS SS SP OOOO 


“ 
=O OO NOAUES WN (OOO NO UE WN 0 ODNOAU EWN 0 OD NAUE WN HOOD ONAUE WN ODOONOU 


name [0] = .sink Csink$b_namelen]; 


name (1) : sink Csink$t_name); 


length = rab$c_bln + fab$c_b 
signal_ if _error(LIBSGET vat Length, rab)); 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

; 

2 

; 

2 

; fab = .rab + rab$c_bln; 
2 SFAB_INIT(FAB = .fab 
2 FNS 
2 

2 

2 

© 


oe at ae et et et et et teh oh oh ah ah ad ah ab ad al rrr 
unDno” 
zor,r 
BOM ESO 


vv vuvUvUvUU 
ee ee a ee ee ee a ee ee et a a 


WN SSNS NSS SSNS 


SRAB_ INITCR 

FAB = .fab, 

ROP (EOF .WBH)); 
status = SCREATE(FAB = .fab); 
IF NOT .status 
THEN 

BEGIN 


“ou 1Be naonnnun 


SSSIRARAVASSHVSARANASSSS 


SIGNAL (msg(openfile), 1, name, 
LIBSFREE_VM(Length,rab); 


ee ee ed ed wd ed dd od dd 
ee ee ee eS Lee 


Be Se Be Oe Be Be Se Be Sy Se Se Se Ge Be Se Se Se Se Se Ge Se Fe Ge Be Se Se SH Se Oe SH Ss Se Se Be FH Se Be Se Se Se Se Se Oe Se Se Se Se Se Se Se Se Se Se Se Geese 


AMAIA 


ooonod 
MrwnN— 


| 
| 
| 
| 


1 
18-Sep-1984 01:37:57 VAX 11 Bliss=32, ¥4.0-74 


GLOBAL ROUTINE open_file (sink): NOVALUE = 


sink = Address of sink control block 


Address of sink block 


Length of FAB and RAB storage 
Descriptor of sink name 
Address of RAB 

Address of FAB 


Setup descriptor of file name 


' Allocate RAB/FAB 
Get address of FAB 
Initialize FAB 


Initialize RAB 


Create the event file 


If error detected, 


al -fab Cfab$l_stv] NEQ ss$_devalloc + net “device allocated’ error, 


' (which is ok, since user might want 
i to use the out ut terginal) 

.Status, .fab Cfab$l stv]); 

' Deallocate storage 


° Pa 
DISKSVMSMASTER: CEVL.SRCJRECEIVER.B832;1 


e 44 
9 18) 


a er’ sso 


“vOe=000" 


47 


000000006 


0050 = &F 00 


8F 00 


4F 


1, name, 


3 33 176 io 

Wg el 

; 1199 1765 ppetus = SCONNECT(RAB = .rab); 
3 1200 1766 a «Status 

; 1201 176 

3 1 8 1768 

: 120 1769 BT CNAL (ms (openfile), 

3: 1204 1770 Hirt M(Length, rab): 

: 1506 1772 2 

; 3 0 1798 

: 1208 1774 sink Csink$l_rab] = 

: 1209 1775 sink Csink$l_ “closertha = ny ne 
|; 1210 1776 

3 1211 1777 =1 ~«~—END; 


4C 2€ 00094 P.AAS: 


CLM AMA NAO —KMOIOCKPMM"WOOrOCO™n" 


OOPFOPFOODODOOOFrPDA OWMoorui®o>r ry Pr-O 


woworunerwoon 
PMPYPoOrmon 


Ss *) 
OOOCOCCOCCOOCOCOOOOSOOOCOCOOOSOOOoCOoOSoO 


“oO 


MmWOWOOTBWW oD wwovconmomon 
AOOMOOCCOCO OMorfrwWonow 


: ¢ 
; 5 


VAX-11 TE eae v4 


onnect to stream 
f error detected, 


-Status, .rab Crab$l_stvJ); 
! Deallocate storage 


' Save address of RAB 


' Set file opened 


VINID OA $$ MO NWO OMO 


1 


faleleleleoleleleleleleolelolololelololelololelolololelololo) 
OFNVTIOUMoO»y> 


COOCCCCOCOOSCOCOOOCOOC COCO OOOOCOooOoCooo 


ro 


~PSECT 
-ASCII 


-EXTRN 


-PSECT 


R 
$: MOVL 


$PLITS,NOWRT ,NOEXE ,2 
\.LOG\ 


SYSSCREATE 
SYSSCONNECT 


SCODES,NOWRT,2 


EVL$_OPENF ILE 


OPEN FILE, ies R2,R3,R4,R5,R6,R7,R8,R9I,RI0 ; 


#EVLS OPENFILE, R10 
$STGNA RS 


L, 


K 
R&), NAME 
RB), NAME+4 
8, LENGTH 


STATUS 
#1, LIBSSIGNAL 


cata) 
#0, : ae #80, 


file 


(FAB) 


» (R?) 


Pete Se Se Se Se Se Se Se Se Se Se Se Se Se Be Se Se Se Se Se Se Se Se Be Be Oe Oe & 


1750 | 


OOOO EEE a... 


1 
RECEIVER hes Sep-1984 7: VAX-11 Bliss-32 V4.0 46 
“Vbe=006 14-Sep 1982 $ 138: :3/ DISKSVMSMASTER:CEVL. She RECEIVER. B32. 1 018) 
7 it? : 
| 67 4401 F 80 00 : MOVW #17409, (R7) : | 
04 A? 0500 8F 3¢ 008 MOVZWL #1280, 4(R7) : 
| ca 6 DO 0008D MOVL FAB, 60(R7) : 
6 DD 00091 PUSHL FAB + 1752. 
| 000000006 09 1 FB 00093 CALLS #1, SYSS$CREATE : | 
5 9 D OO9A MOVL RO, Tos BS 2 
OF E8 0009D BLBS STATUS, 2$ 3 1754. 
00000840 &F 0C A6 D1 OO0A0 CMPL 12(FABS, #2112 : 1757. 
26 13 OO0A8 EOL «=s«4$ : 
0c Ag DD OOOAA PUSHL  12(FAB) ; 1760, 
15 11 S0ap RB 3$ ; 
52 66 DO OOOAF 2$: OVL RAB, R2 > 1765" 
52 DD 00082 PUSHL  R2 : 
| 000000006 99 gi FB 000B4 CALLS #1, SYSS$CONNECT : 
g DO 000BB MOVL RO. STATUS ; 
iC 53 EB OO0BE BLBS STATUS, 5$ + 1766 
0c Ae DD 990¢1 PUSHL 12(R2) > 1769 
53 DD 000C4 3$ PUSHL STATUS : 
10 AE OF 000¢6 PUSHAB NAME : 
01 DD 000C9 PUSHL #1 ; 
5A DD 000CB PUSHL R10 : 
69 05 FB 000CD CALLS #5, LIBSSIGNAL ; | 
5E DD 00000 4$ PUSHL SP : 1770 
08 AE 9F 000D2 PUSHAB LENGTH 3 
000000006 00 02 FB 00005 CALLS #2, LIBSFREE_VM ; 
04 0000C RET > 1768 | 
1E a8 6E DO 000DD 5$: MOVL RAB, 30(R8) + 1774. 
22 AB 0000v CF 9E O00E1 MOVAB CLOSE_FILE, 34(R8) : 1775 
04 000E7 RET : 1777 


; Routine Size: 232 bytes, Routine Base: $CODE$ + 07CB 


ee dd ad dd 


i. 

RECEIVER 16-Sep-1984 01:37:57 VAX-11 Bliss-32_ V4.0-74 Page 47. 
Vv ti 10785 -198¢ 13:38:84 DLeKSVMSMASTERSCEVL SRCIRECEIVER.B32~1° (19) | 
3 


Ta 


! 
3 Close a file sink. 

: Inputs: 
sink = Address of sink block | 
Outputs: 

: None 


DNAMALSWN —“OOONOUSE 


MONMONONONONONONON 3] 2 


SS 


sink: REF BBLOCK; Address of sink block 


WAWWS 
Vrwn— 


REF BBLOCK; Address of RAB 

rab = .sink Csink$l_rab]; ! Get address of RAB 

IF .rab NEQ 0 If RAB and FAB were allocated 
THEN 


eer 


ength, 
memes VECTOR (2), ' Descriptor of file name 
fab: REF BBLOCK; ! Address of FAB 


fab = .rab Crab$l_fabJ; ! Get address of FAB 


name £0} = .sink Csink$b_namelen]; ! Setup descriptor of file name 
name (1) = sink Csink$t_name); 


SDISCONNECT(RAB = .rab); ! Disconnect to cancel any 1/0 

status = SCLOSE(FAB = .fab); ' Close the file 

a” -Status 
SIGNAL (msg(closefile), 1, name, .status, .fab Cfab$l_stv]); 


arr = rab$c_bln + fab$c_bln; ' Length of RAB/FAB storage | 
Ls FREE_VM(Length,rab); ! Deallocate RAB and FAB 


Sad ak et et et et et et et ek 
tt FS S$ S$ “QOODOCOCOCOCOCOC OOO OOOO OO OWWMMdOMMDDMDdMDo~T~ 


SOOONO UNE WN 0 OONA NEW | GS OODNAU EWN CO ODNOU EWN OOW 


If error detected, 


PMIPOPOPOPIPORSPYNIPININONPUNININONUPY POP Pon funofonsnononopnofponononononopononorfny 


WR — OOOO VUE WN" OOONGAUE WN -O 0 


PAE Q Maron 


sink Csink$l_closertn] = 0; ! Set sink no longer open 
END; 


mk a ka a a a 8 kaka a a at sa a a a — 4s 4) 2 9 = 4 
ee ek et a a a a a a = a 2 a ss a 2 1 os —) 4 4 


©0900 00 00 0000 09 00 09 00 09 09 09 00 09 00 C0 09 0D 0D CD OD 09 09 09 09 00 OD CD 09 09 C8 NI NI SI SII NS SSS 


—OOOnNOuewn— 


Wurononornoponofonofron 


SO 


Be Se Be Oe Oe Se Se Oe Fe Se Be Se Se Se Fe Ge Ge SH Ge FH Ge Se FH Se Se Be ee Be Se Be Se Ge Ge Se Se SHS Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se eeas 
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RECEIVER 16-Sep-1984 01:37:57 VAX-11 Bliss-32 v4.0-74 Page 48 RE( 
iv it 12-808- 1 3be 933g: 84 DISKSVMSMASTER: CEVL.SRC RECEIVER.B32:1> (19) | vOé 
.EXTRN SYSSDISCONNECT, SYSSCLOSE | “4 
| .EXTRN EVL$_CLOSEF ILE : 1 
00GC 00000 CLOSE_FILE: 
| «WORD Saye R2,R3 : 1778 
| 5E 0C C2 0000 SUBL2 #12, SP ; 
| 5 04 AC DO 0000 MOVL iNK R2 : 1802) 
1E Ad DD 00009 PUSHL  30(R2) : | 
| 50 6E b0 000¢ MOVL RAB, RO + 1804. : 
48 1 OO0F BEQL 2$ : 3 
53 eae’ pO 00011 MOVL  60(RO), FAB + 1812 ; 
08 AE H A2 9A 90015 MOVZBL 4 (Re), NAME + 1814 : 
| OC AE F Ad 9E OOOIA OVAB. 47(R2); NAME+4 + 1815 F 
| 50 DD 0001F PUSHL RO ; 1817 : 
000000006 00 01 FB 00021 CALLS #1, SYSS$DISCONNECT : ; 
53 DD 00028 PUSHL FAB + 1819 ; 
000000006 00 01 FB OO02A CALLS #1, SYSS$CLOSE : 
17 50 €8 00031 LBS STATUS, 1$ + 1821 
0c A3 DD 00034 PUSHL 12(FABS + 1823 
50 DD 00037 PUSHL STATUS 3 
10 AE 9F 00039 PUSHAB NAME 2 | i 
01 ODD 0003C PUSHL : ; 
000000006 8F DD 0003E PUSHL #EVL$_CLOSEFILE ; : 
000000006 00 05 FB 00044 CALLS #5, LIBSSIGNAL ; ; 
04 «AE 94 8F 9A 0004B 1$: MOVZBL #148, LENGTH + 1825 ; 
5E DD 00050 PUSHL SP > 1826 F 
08 AE OF 0005¢ PUSHAB LENGTH : : 
000000006 00 02 FB 0005 CALLS #2, LIBSFREE_VM : ; 
22 A2 04 0005C 2$: CLRL 34(R2) : 1829 
04 0005F RET : 1831 


; Routine Size: 96 bytes, Routine Base: S$CODE$ + 0883 


‘C2 C0 OD C9 09 CD CO OP CD CO CD CP CD 


DD PASS EB BS BBB BE ANNI 
=O ODNAMN EAN (OOD NAME WN SO OONOUE wr 


00.00 00 00 00 
DONO 
0 C9 C0 Co Cd C0 CD CD Cd CD 02 CD 0D-09 00 CD OD CD 


SSSLESRANLS 
o 


WA AAIAI AIA POPP POPPE PoP NoNoPoPonofny 
SoEess 
wrbwn— 


coo 


Ou wr—o 0O@n 


NORD a 


WANA NAA IAI 


ee a a a a a ad ad od oes = as ws 8 8 = = a = = = 


Bc Be Oe Be Oe Se Se Oe Se Oe Be Se Se FH Se Fe Se Se FH Se Se Se Ft SH Se Ge Se Be Se Se Se SH Se Ss oe Se Se Se Se Ge Se Se Se Se Se Se Se Se FSH Shae SHS Se esas 


rwn—0 O@~ 


w 
horn 


] 
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ROUTINE output_opcom (sink, event, event_length): NOVALUE = 


32, y4.0-742 Page 49. 
R:CEVL.SRCIRECEIVER.B32;1 (20). 


Output a formatted event to all OPCOM network operators 


! 

' 

' 

' 

' 

' 

; sink = Address of sink descriptor block 
: event = Address of event record 
event_length = Length of event record 
Outputs: 

' 

! 


None 


sink: REF BBLOCK, '! Address of sink block 
event: REF BBLOCK; ! Address of event record 


status, 
opcom_desc: VECTOR (2), ' Descriptor of OPCOM buffer 
opcom_buf: BBLOCK CSBYTEOFFSET(opc$l_ms_text)+2048]; 


Always write the formatted event to all OPCOM network operators, 
whether a monitor task is specified or not. This allows monitor 
tasks to receive and process events, and we still get the OPCOM feature. 


sink Csink$w_maxbufsiz] = 2048; ! Set maximum Limit for output 
sink Csink$w_buflen] = 0; ! Initialize buffer descriptor 
sink Csink$l_bufferJ] = opcom_buf + SBYTEOFFSET(opc$l_ms_text); 


format_event(.event, .event_length, ! Call formatting routines 
save_lines, .sink); ! but append output Lines together 


sink Csink$w_buflen] = .sink Csink$w_buflen] - 2; ! Remove trailing CR/LF 
opcom_buf Copc$b_ms_type] = opc$_rq_rast; ! REQUEST to be sent to operator 
opcom_buf Lopc$b_ms_target] = opc$m_nm_ntwork; ! Sent to network operators 
opcom_buf Copc$w_ms_status] $ ! No status 

opcom_buf Copc$t_ms_raqstid) 3 ! No request ID 


opcom_desc £0} = .sink Csink$w_buflen] + SBYTEOFFSET(opc$l_ms_text); 


opcom_desc opcom_buf; 
status = SSNDOPR(MSGBUF = opcom_desc); ! Send message to OPCOM | 
1F NOT .status ' If error detected, | 


RIPIPIPNINIMPINIMYNINYDIPDPYNDNIPINYPIPYAINIAPINPINININIPINIPINPIPINIPINIPIPININYIDD 2 9 9 OS St SO SS SS 


N 
SIGNAL (msg(brdcst), 1, ZASCID "OPCOM', .status); ! then signal the error 


ee a Oe ee ee 


HY 
/ RECEIVER 16-Sep-1984 01:37: VAX=11 Ol iss: -32 V 50. 
vot 006 10-Sep-1 3b 2:28: ef DISKSVMSMASTER: ci’ She RECEIVER. B32" 79° (20). 


; 1325 1889 1 END; | 
| 


-PSECT $PLITS,NOWRT,NOEXE ,2 


50 4F 00098 P.AAU: .ASCII \90G99)0><0><0> : 
B45 QOAO P.AAT: .LONG 17694725 3 
0000000" O00A4 ADDRESS P.AAU : 


~-EXTRN SYSSSNDOPR, EVL$_BRDCST 
-PSECT $CODES,NOWRT,2 

0004 00000 OUTPUT_OPCOM: 
oW RD 


00 00 00 4D 4F 43 


0 Save R2 : 1832 

SE F7FO ©6CE «(9E 00002 MOVAB =2064(SP), SP : 
52 04 AC p 00007 MOVL NK Re. + 1866 

16 Ae 0800 BF 3C¢ 90008 MOVZWL 72068, : 
1A A2 08 A 9E 00011 MOVAB OPCOM "alk se.  56(R2) ; 1868 
52 DD 00016 PUSHL R2 + 1871 
0000v CF 9F 00018 PUSHAB SAVE_LINES + 1870 

7E 08 AC 7D 0001C MOVa EVENT, -(SP) : 

0000G CF 04 FB 00020 CALLS #4, FORMAT EVENT 3 
18 A2 02 A2 00025 SUBW2 #2. + 1873 
6E 4003 8F 3C 00029 MOVZWL #1638 7, OPCOM_BUF + 1875 
04 AE b4 O00eE CLRL  OPCOM BUF +4 : 1878 
F8 AD 18 A2 C 00031 MOVZWL ze (Re on see DESC ; 1880 

FB AD 08 CO 00036 ADDL2 OM_DES : 
FC AD 6E SE 0003A VAB Optom. fits OPCOM_DESC+4 : 1881 
7E D4 0003E LRL (SP Pp + 1883 

FB AD 9F 00040 PUSHAB Sc : 

000000006 00 02 FB 00043 CALLS oO. OR TSSSNDOPR : 
15 50 £8 OO04A BLBS STATUS, 1$ > 1885 
50 DD 00040 PUSHL STATUS : 1887 

0000" CF 9F OOO4F PUSHAB P.AAT g 

01 DD 00053 PUSHL #1 : 

00000000G 8F dD 00055 PUSHL #EVL$_BRDCST 3 

000000006 00 04 FB 00058 CALLS #4, LIBSSIGNAL : 
04 00062 18: RET + 1889 


; Routine Size: 99 bytes, Routine Base: S$CODE$ + 0913 


\ . OO 


Be Be Oe Be Se Oe Be Oe Se Ge Se Se Se SH Se Se Se Se Se SH Se Se Se Se Se Se Se Ge GH Se oe Ge Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se se SH Se Se seas 


N 1 
V seus 1erSep-1986 12:28:56 Disk 


7 ROUTINE output _monitor (sink, event, event _length): NOVALUE = 


Bliss-32 V4.0-7 Page 51 
SMASTER: CEVL. SRC RECEIVER.B32;1 1) 


: Output an event record to a monitor process. 


3 7 1890 1 

; 1328 1891 1 

3 1329 1 3 1 

: 1350 1895 1 

2} oe 

TP JBp | | tows 

: 1335 1898 1! sink = Address of sink descriptor block 
: 1336 1899 1! event = Address of event record 
3 : i 133 : event_length = Length of event record 
:1 $ 190¢ 1 ' Outputs: 
; 1340 1903 1! 

3: 1341 1904 7! None 

3: 1 ¢ 1905 1 !e=< 

3 134 1906 1 

: 1344 1907 § BEGIN 

: 1346 1909 5 MAP | 
: 1347 1910 $ sink: REF BBLOCK, ! Address of sink block | 
3: 1348 1911 event: REF BBLOCK; ! Address of event record 
3; 1349 bat 

patent a. | 
3 status; 
1388 1916 7 

; 1354 1917 i If a monitor name is specified, then send the event to the remote task. 

3; 1355 1918 2 ! We must check for non-null monitor name, since it is valid to have the 

; 1356 1919 2 ! monitor sink turned on without any name, meaning only OPCOM events. 
1388 195) 3 

: 132) 1992 ; if «sink Csink$v_error] ! If in error state, 

: 1323 1994 § RETURN; ! then don't do anything | 
: 1368 1926 2 IF .sink Csink$b_namelen] NEQ 0 ! If monitor name specified, 

: 1308 1958 THEN GIN 

: 1306 1999 Ll aa Csink$t_closertn] EQL 0 ! If sink is not yet initialized 
: Ht ve 1931 open_monitor(.sink); ! then connect to process 

: 1370 P 1938 Status = SQJOW(FUNC = JOS$S_WRITEVBLK, ! Send event to monitor process 

: ft 4 P 1934 CHAN = .sink [si inkdy, _channelJ, 

3 1 % P 1935 EFN = evl$c_synch 

: 137 P 1936 10S8 = ote ey ihese. 1osb), 
3; 1574 P 1937 Pl = .ev ' Address of event record 

3; 1375 1938 P2 = yim “Length; ! Length of event record 

3: 137 1939 | 
r 1377 Izy rg btetes ! If successfully submitted, 
: 1380 1306 status = .sink Csink$w_iosb]; ! then get final 1/0 status 

: 1381 1944 IF NOT .status ' If error detected, 

: 1 eae 1945 THEN 

; 138 1946 4 BEGIN 


PUPA APISIPIVIVIVIVITVT 


— td ts — 2) —) ad ds 5 td 


Ok kk dd 


aon 
MO CONOUWES Wi -O0O~ 


SPINE B&H NTT 


IF .status NEQ ss$_abort 
THEN 


BEGIN 
LOCAL 
sink_name: VECTOR [2]; 
sink_name (0) = .sink 
sin 1 


close_monitor(.sink); 
sink Csink$v_error] = true; 


END; 
END; 


0004 
SE 08 C2 
4 06 ac 00 
14 Ae 01 €0 
2E =A 73 
os 
22. A2 «OS 
9 12 
2 0D 
O000v CF 1 £8 
E—E 7C 
7E 7C 
7E 08 ac 7D 
7E 7C 
26 «Ae OOF 
30 Bo 
7E 1 A2 3C 
000000006 00 OC FB 
07 35 9 
50 26 =A C 
D 2 E8 
C oi 
1D 1 
6E sf Ad 9A 
04 AE F Ad 9E 
50 0D 
04 AE 9F 
A DD 
000000006 8F DD 
000000006 00 96 FB 
2 0D 
0000v CF 01 fe 
14 A2 02 Be 


14-Sep-1984 


00000 OUTPUT_MONI TOR: 
WORD 


2 ' 
bese “1984 01:37:57 VAX-11 Bliss-32 V4.0-74 P 52 
4 93:38:84 DL SKSUMEMASTERSCEVL. SRCIRECEIVER.B3204"" (245 


! If something other than Link abort, 
! then report error 


sink$b_namelen]; 
k_name = sink Csink$t fones; 
SIGNAL (msg(writemon), 1, sink_name, .status); 


: Close the sink ; : 
! Suspend all operations on sink 
! until data base change 


-EXTRN EVLS_WRITEMON 


. Save R2 
SUBL2 #8, 
MOVL SINK, R2 
09 BS ni, g0(R2), 4$ 
0000€ TSTB  46{R2) 
00011 BEQL 4 
a TSTL  34(R2) 
é BNEQ 1$ 
a PUSHL R2 
A CALLS #1, OPEN_MONITOR 
F 1$: CLRO 0 = (§P) 
1 CLRQ = (SP) 
3 MOVO EVENT, =(SP) 
CLRQ = = (SP) 
PUSHAB 38(R2) 
C PUSHL #48 
; MOVZWL 30(R2), -(SP) 
PUSHL #1 
CALLS #12, SYS$QIOW 
BLBC T : 
MOVZ2WL 38(R2). STATUS 
BLBS TATUS, 
2$ CMPL TATUS, #44 
BEQL é 
A MOVZBL 46(R2), S$ INK_NAME 
MOVAB  47(R2). SINK~NAME+4 
PUSHL STATUS 
SHAB SINK_NAME 
PUSHL @# 


PUSHL M#EVL$_WRITEMON 
CALLS #4, LIBSSIGNAL 


CALL #1, CLOSE MONITOR 
a2; S0cRay 


Be Pe Se Se Ge Se Be ee Oe Oe Oe OHH Be Oe Se Oe Be SOHO Oe Oe Se es Oe Oe Oe Oe HSH Oe Se Be ae 


cara ner =o Ae eae 
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VOee000 14-Sep-1984 $3; 8:54 DLSKSVMEMASTER CLEVE SRCIRECEIVER.B3204° (22) vO« 
; 1401 1963 1 ROUTINE save_lines (sink, desc, short_form): NOVALUE = 
: 1o06 1964 1 
3; 140 1965 1 !<=- 
> 1406 1298 , ! 
3 1405 1967 1! This is an action routine called by the event formatting 
3 1008 1968 1! routines for each Line of output. It appends each Line 
3; 140 1282 1! into an buffer associated with the sink followed by a CR/LF. 
; 1408 1970 1! 
: 1409 1971 1 ! Inputs: 
: 1410 1376 1! 
3; 1411 1975 1! sink = Address of sink block 
3 1eig 1974 1! desc = Address of descriptor of formatted line | 
3; 141 1975 1! short_form = Length of Line if short form is desired 
3 16146 1976 1! -1 if no short form possible) 
3: 1415 1977 1! 
3 1218 1978 1 ! Outputs: 
3: 141 1979 1! | | 
3 1418 1980 1! The Line is appended to the buffer ‘ 
3 1419 1981 1 fe=< 
: 1050 1386 1 
> 1421 19 BEGIN 
3 14 ; 1984 
3; 14 1985 MAP 
3 1426 1986 sink: REF BBLOCK, ! Address of sink control block 
; 1425 1987 desc: REF VECTOR; ! Descriptor of output Line 
3: 1426 1988 
3: 1427 1989 LOCAL . 
; 1428 1990 linedesc: VECTOR (2), ! Descriptor of the Line 
: 1286 193) 2 outdesc: VECTOR (2); ! Output buffer descriptor 
3; 1431 1998 outdesc [0] = .sink Csink$w_maxbufsiz] - .sink Csink$w_buflen]; 
; 1636 Ios outdesc (1) = .sink Csink$l_buffer] + .sink Csink$w_buflend; 
3 1434 1996 Linedesc 9 = .desc £02: ! Copy descriptor locally 
3 ? 5 ip ad Linedesc [1] = .desc (1); 
3; 1437 1999 IF _ .short_form GTR 0 ! If there is a short form, 
3 14 sone HEN 
3 143 001 Linedesc C0] = .short_form ! then use that because OPCOM 
3: 1440 44 ELSE ' is Limited in output size 
3; 1461 00 IF .short_form EQL 0 ! If short form means no output, 
: 1449 004 2 THEN 
5 soe7 005 RETURN; ! then don't append anything at all 
5 1445 Pp $09 SFAO(ZASCID ‘!AS!/*, ! Append the string to the buffer 
: 1668 P 2008 outdesc ,outdesc, ' Result buffer/length ; 
3 ret} st Linedesc); ! Parameter is descriptor of Line 
: seep 4h sink Csink$w_buflen] = .sink Csink$w_buflen] + .outdesc [0]; ! Update length 
3; 1451 O18 1 END; 
-PSECT SPLITS,NOWRT,NOEXE 2 
00 00 00 2F 21 53 41 21 OOOAB P.AAW: .ASCII \!AS!/\<0><0><0> ; 


BS": ee ee, Se ee oe 


VoscO00" 1§-se0-19 tage, esuwBAAS fence coSacSrecerver.o3204°° (255 
B0080000" oops NAY! KONE Es PoaAUe 


~EXTRN SYSSFAO 
-PSECT SCODES,NOWRT,2 
0004 00000 sath meaet 


; Routine Size: 78 bytes, Routine Base: S$CODE$S + O9E9 


ORD Seye R2 : ; 

5 0c C3 9002 SUBL2 #12, SP : ; 

5 06 A 000 OVL NK R : 1993 : 

16 A C 9009 MOVZWL (Re) ; | : 

1 1 A g D MOVZWL 24(R2). : : 

7E 0 51 0011 SUBL3 R1, RO, OUTDESC ; | : 
50 18 a2 C 90015 MOVZWL 24(R2), R : 1994. ; 

04 AE 1A B24 : 0019 MOVAB 826 (R25 CROJ, OUTDESC+4 : | : 
50 08 ac p 0001F MOVL DESC, R : 1996 : 

08 Ar 60 7D 999 3 MOV (RO), LINEDESC ; : 
5 0c AC DO 00027 MOVL § SHORT_FORM, R > 1999 ; 

06 15 00028 BLEQ 1$ : : 

08 AE 50 D0 00020 MOVL RO, LINEDESC : 2001. ; 
02 11 00031 BRB ¢3 : 3 

18 13 000 3 1$: BEQL : 2003) : 

08 AE 9F 00035 2$: PUSHAB LINEDESC ; 2009 | ; 

04 AE 9F 00038 PUSHAB OUTDESC : F 

08 AE 9F 00038 PUSHAB OUTDESC ; | ; 

0000" CF 9F O003E PUSHAB P.AAV : | ; 

000000006 00 04 FB 00042 CALLS #4, SYSS$FAO ; | ; 
18 A2 6E AO 00049 ADDW2  OUTDESC, 24(R2) : 2011) ; 
04 00040 38: RET 2013 | ; 

| oO 


F 2 
16-Sep-1984 7:57 VAX-11 Bliss-32 V4.0-74 
ease See Pb seie, | Webi eteR ee skeSeecerver.e32°4 

: 1453 14 1 ROUTINE open_monitor (sink): NOVALUE = 
3 14546 1 
: 1455 18 1 lee- 
3 146 $ tio = 
3; 14 18 1! Open the monitor process sink. 
: 1458 019 1! 
; 1459 020 1! Inputs 
: 1460 021 1! : 
3: 1461 0 § 1! sink = Address of sink control block 
: 1066 0 . y 
: 146 026 1 ! Outputs: 
> 1464 025 1! 
3 1465 0 § 1! None 
3 1466 0 1 leo 
: 1467 028 1 
3 1468 029 BEGIN 
3; 1469 030 
: 1470 031 MAP : 
> 14671 O36 sink: REF BBLOCK; ' Address of sink block 
; 1o%6 03 
3; 147 034 LOCAL 
3 1474 2035 status, f 
3 1475 2036 ncb_desc: VECTOR [ : descriptor of NCB for process 
: 1476 2037 ncb: VECTOR 428 eyTe): i NCB 
3; 1478 P $036 ; status = panera 2 ZASCID ‘_NET:* 
: 1679 2040 CHAN = sink CsinkSw_ channel)): 
; 1480 2041 2 
3: 1481 $06 2 IF NOT .status ' If error detected, 
3 et 2045 2T 
; 1eaz soes (SIGNAL (msg(netasn), 0, .status); RETURN); ! then report error 
3; 1485 2046 etry Wa? “8? ithe fo Logpinedese). evl$gt_localnode+3, 
> 1486 2047 § PLiT 
3: 1487 2048 Sink Csink$b cpanel, sink Csink$t_name], 
: 1488 2049 § ie yey iT 
3 1489 2050 0, 128, ahs 
3 1490 2051 : 
3 1491 et 4 ncb_desc £0) = CHSRCHAR(evl$gt_localnode+2)+8+.sink Csink$b_namelen]+1; 
: 1038 sper ncb_desc [1] = ncb; 
: 1494 P 2055 status = SQIOW(FUNC = IO$_ACCESS, ' Connect to monitor process 
3 1495 P 2056 CHAN = .Sink sinkSy _channell, 
; 1608 P 2057 EFN = evl$c_synch_eff 
: 149 P 2058 10SB8 = sink” CinkSw.. iosb], 
3; 1498 059 P2 = ncb_desc); 
3 1499 060 - 
; 1500 061 IF .status ! If successfully submitted, 
: 1501 O66 THEN : : 
3 1208 st status = .sink Csink$w_iosb]; ! then get final 1/0 status 
3 1504 065 IF NOT .status ' If error detected, 
3; 1505 066 T 
: 1208 ot (SIGNAL (msg(openmon), 1, ncb_desc, .status); RETURN); 
: 1208 533 sink Csink$l_closertn] = close_monitor; ! Set connection established 


(285 


v0 


; Y 
3 3 
3 7 
; 1 

1 


2 | 

RECEIVER r 18-se 1984 01:37:57 VAX-11 Bliss-32 V4.0-74 P 7 

VOCeO05 14-Sep-19 ts 9:38:84 DISKSVMSMASTER:CEVL.SRC RECEIVER.B32:19" (239, 
! If 


0 
1 
§ 
4 


F_ .evl$gl_logmask Celg$v_monopn) 


i i i 7 | 
THEN If logging monitor connections 


SIGNAL (msg(logopnm), 3, .ncb_desc [0], .ncb_desc [1], 0); 
1 END; 


-PSECT SPLIT$,NOWRT,NOEXE,2 
P.AAY: .ASCII \_NET:\<0><0><0> 
P.AAX: .LONG 17694725 
ADDRESS P.AAY 
P.AAZ: .ASCII \::"‘TASK=\ 
P.ABA: .ASCII \''\<0><0><0> 
-EXTRN EVLS_OPENMON, EVL$_LOGOPNM 


-PSECT $CODES,NOWRT,2 


00 00 00 3A 54 45 1 


. 
30 48 53 41 54 6 
00 00 0 


Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 
SE FF78 CE 9€ 00002 MOVAB =-136(SP), SP : 
7E 7C€ 00007 CLRQ  =(SP) + 2040 
56 04 AC 00 00009 MOVL _— SINK, R6 : 
1E A6 9F 0000D PUSHAB 30(R6) : 
0000" CF 9F 90010 PUSHAB  P.AAX ; 
000000006 00 04 FB 00014 CALLS #4, SYSSASSIGN ; 
5B 50 DO 00018 MOVL RO, STATUS : 
12 58 £8 OOO1E BLBS STATUS, 1$ > 2042 
5B DD 00021 PUSHL STATUS + 2044 
7E D4 00023 CLRL.  =(SP) ; 
000000006 8F DD 00025 PUSHL #EVL$_NETASN : 
000000006 00 03 FB 900 B CALLS #3, LIBSSIGNAL ; 
SA 0000G CF 9A 000 7 1$: MOVZBL EVLSGT_LOCALNODE+2, R10 + 2046 | 
59 EAS 94 00058 MOVZBL 46(R6)7_RO : 5048 | 
1} BF 9A 0003C MOVZBL #128, RB ; 
57 6E 9E 90040 HOVAB NCB, R : 
00 00006 CF 3A et 00045 MOVCS R10. EVL$GT_LOCALNODE+3, #0, R8, (R7) ; | 
gD 18 00048 GEQ ss : | 
57 A CO 00040 ADDL2 R10, R7 ; 
g Sa ce 0050 SUBL2 R10. RB ; 
00 0000° CF 08 C 0055 MOVCS #8, P.AAZ, #0, RB, (R7) : 
1D 18 00058 BGEQ = 2 : | 
57 08 ¢O 0005D ADDL2 #8, R7 : 
58 08 (C2 90060 SUBL2 #8, Rg : 
00 2F AG 59 2C 0006 MOVCS R9, 47(R6), #0, RB, (R7) ; 
67 0069 : 
OF 18 0006A BGEQ = 2 ; 
57 9 C9 006C ADDL2 R9, R? ; 
& 59 ¢ O06F SUBL2 R9. RB ; 
00 0000" CF 01 C 0072 MOVCS #1. P.ABA, #0, RB, (R7) ; 
50 00006 CF 9A OO07A 2%: MOVZBL EVLSGT_LOCALNODE+2, RO > 2052 


ow 
2a™ 


: fe 


en) 


p71 382 9): 38: H DT SKSUMSMAST eR-CEVLS SRCSRECE IVER. 832: i 9 (035 


™~N 
wow 


51 2 Ag 9A on MOVZBL 46(R6), R1 : 
0 5 £0 ADDL 0° : 
FB AD 09 AO : 0 MOV BRON. NCB DESC : 
FC = AD ge 3 00 MOVAB NCB, NCB_DESC 3 3053 
— 7¢ 00 : CLROQ eb)” > 2059 
7E 7C 00 | CLRQ  =(SP) : 
F8 AD 3 009 PUSHAB NCB_DESC ; 
7E 7C 0096 CLRQ 0_ = (SB) : 
7E 04 0009 CLRL -(SP) : 
26 AB 9F OOOSA PUSHAB 38(R6) : 
3 pp 0090 PUSHL # : 
7E 1E AG 3C 0009F MOVZWL 30(R6), -(SP) : 
01 DD O00A3 PUSHL : 
000000006 00 C FB 000AS CALLS #12, SYS$QI10W : 
58 0 pO O00AC MOVL RO, STATUS : 
07 58 £9 OOOAF BLBC STATUS, 3$ : 206 
$8 26 AB 3C 00082 MOVZ2WL 38(R6), STATUS : 206 
15 38 E8 000B6 BLBS STATUS, 4$ 3 206 
B DD 90089 3$: PUSHL STATUS : 206 
F8 AD 9F 000BB PUSHAB NCB_DESC : 
01 DD OOOBE PUSHL #1 : 
000000006 8F DD 000C0 PUSHL #EVL$_OPENMON : 
000000006 00 04 FB 900¢6 CALLS #4, LIBSSIGNAL : 
22 Ab O000v CF 9E ites 4$: MOVAB CLOSE MONITOR, 34(R6) : 2069 
15 0000G CF 03 £1 00004 BBC #3, EVLSGL _LOGMASK, 5$ 3: 2071. 
7E D4 OOODA CLRL (SP : 2073 
7E F8 AD 7D 000DC MOV NCB_DESC, -(SP) : 
03 DD 000E0 PUSHL #3 ~ : 
000000006 8F DD 000E2 PUSHL #EVL$_LOGOPNM : 
000000006 00 05 FB OOOE CALLS #5, LYBSSIGNAL : 
04 OOOEF 5$: RET : 2075 


; Routine Size: 240 bytes, Routine Base: $CODE$S + 0A37 


2 | 
RECEIVER ihesé -1984 01:37:57 VAX-11 Bliss-32 V4.0-74 Pa 59 | WOR 
VOee000 ese b=19R6 12:28:34 DISKSVMGMASTERSCEUL SRCIRECEIVER.B3204" (24) vo4 


ncb_desc (0) = .sink Csink$b_namelen]; ! Setup descriptor of process name 
ncb_desc C1] = sink Csink$t_name]; 


status = SDASSGN(CHAN = .sink Csink$w_channel]); ! Deassign channel 
if a -Status ! If error detected, 
SIGNAL (msg(closemon), 1, ncb_desc, .status); 


sink Csink$l_closertn] = 0; ! Mark sink closed 
END; 


3 1 16 076 1 ROUTINE close_monitor (sink): NOVALUE = 

3: 151 077 1 

; 1518 143 1 !-<- 

; 1519 079 1! 

: 1520 44 1! Close the monitor process sink. 

: 1853 S82 1 i Input | 
: ! Inputs: 

3: 1 5 ORS 1! 

: 19246 084 1! sink = Address of sink block 

: 1525 085 1! | 
; 1526 086 1 ! Outputs: | 
; 1527 087 1! | 
; 1528 088 1! None 
: 1529 089 1 !-=- 
; 1530 090 1 

3 7 He 091 BEGIN 

: 1 ¢ 944 

3; 153 09 MAP 

3 1534 094 sink: REF BBLOCK; ' Address of sink block 
: 1535 095 

3; 1 $9 096 LOCAL 
; 1537 097 § status, 
3 1 ; 098 ncb_desc: VECTOR (2); ! Descriptor of NCB 

3; 154 

3 1546 

3 154 

3; 154 

: 154 2 

3; 154 2 2 

3; 1546 § 

3; 154 

3; 154 

3; 154 

3 155 

3; 155 2 1 


QUIT DV PUD PDD PVSUPUSUSUSI SUITS ISIS SISTSISII 


—OOOBNOUELWR—OO0OW 


——-GDOOCOCCO0CO 
—“OVODONOUS wr 


.EXTRN EVL$_CLOSEMON 
0004 00000 CLOSE_MONI TOR: 
WOR 


| 
| 
| 
04 C2 00 guore fave fe : on 
5 4 Ac cs ites MOVL SINK, R2 + 2100 | 
7E ze A2 9A 90009 OVZBL 4G(R ), NCB_DESC : 
04 AE F Ad 9E 9000 VAB_ 47(R2). NCB~DESC+4 : 101 
7E 1E A2 3C€ 0001 MOVZWL 30(R2). -(SP) ; 2103 | 
000000006 00 1 Fe 0016 LLS. #1, SYSSDASSGN : | 
14 50 £8 0001 BS STATUS, 1$ > 2105 | 
0 bp PUSHL STATUS : 2107 | 
04 AF oF PUSHAB CB_DESC : | 
000000006 BF DD PUSHL #EVL$_CLOSEMON : 
000000006 00 io 04 FB 020 ae CALLS #4 LTBSSIGNAL : 
Be $0 Be T > 2111 


ee Aire Siete 
nEceAYER 1bese0c}986 04:37:57 YAKIT Bliss 32 V4 OTHE. ee af nm atl 


; Routine Size: 56 bytes, Routine Base: S$CODE$S + 0827 


RECEIVER 
v04-000 


1884 $118 0 ELUDon 


:57  -VAK=11_ BLiss-32_v4.0-74 e 61 
4 _DISKSVMSMASTER:CEVL. SRCURECEIVER.B32: 1°" (25) 


-EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 


Se Ge Ge Pe Se Se ee oe 
oO 


NS 2 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SGLOBALS 1 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 212 NOVEC,NOWRT, RD ‘NOEXE, NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 2911 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | 
: Library Statistics | 
Bie ee Ae in Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time | 
: _$255$DUA28:(SYSLIBJSTARLET.L32;1 977 11 1 581 0:01.1 
; =BESSSDUAZB: ESHALIBINET 82:1 73 7 8 63 80; 700.9 | 
; >$255$DUA28:CEVL.OBJJEVCDEF .L32;1 0 15 00:00.2 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:RECEIVER/OBJ=OBJ$:RECEIVER MSRC$:RECEIVER/UPDATE=(ENHS$:RECEIVER) 
; Size: 2911 coge + 305 data bytes 
: Run Time: O38 a"4 


; Elapsed Time: 

3 Lines/CPU Min: 3343 

3 Lexemes/CPU-Min: 27535 
5 Used: 218 pages 
; Compilation Complete 
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NT CORPORATION 
D PROPRIETARY 


D= 
iS a IT) 


os 


015 AH-BT1i3A-SE DIGI 
VAX/VMS V4.0 CONF 


VAX/VMS V4.0 


0157 AH-BT13A-SE 


